AD- A 1 35  233  REAL-TIME  IMPLEMENIAT ION  OF  A  SPEECH  DIGITIZATION  1/> 

ALGORITHM  COMBINING  TIM.  (U)  NOTRE  DAME  UNIV  IN  DEPT  OF  * 
ELECTRICAL  ENGINEERING  J  L  MELSA  ET  AL .  JUN  83 
UNCLASSIFIED  OCA  1 00- 82 -C -0026  F/G  9/2  NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NAT  ION  Ai  BURfAU  Of  STANDARDS  l°6j  A 


I 

I 


*1 


1  0£C  2  is, 


1S83 


tvy^A 


'Department  of 

ELECTRICAL  ENGINEERING 

UNIVERSITY  OF  NOTRE  DAME.  NOTRE  DAME,  INDIANA 


This  document  has  been  appToved 
1.  t  public  lel-sc'e  end  rale;  its 
<L  mfcuti-.'ii  is  unlimited. 


12  02  027 


SiC*efc-'» : 


FINAL  REPORT  -  VOLUME  2 


REAL-TIME  IMPLEMENTATION 
OF  A 

SPEECH  DIGITIZATION  ALGORITHM 
COMBINING 

TIME-DOMAIN  HARMONIC  SCALING 

AND 

ADAPTIVE  RESIDUAL  CODING 


Prepared  for 

Defense  Communications  Agency 
Defense  Communications  Engineering  Center 

1860  Wichle  Avenue 
Reston,  Virginia  22090 

Contract  No.  DCA-100-82-C-0026 

1  June  1983 


;UJ*  document  has  beer. 
or  public  release  and  sale 
distribution  is  uniunried. 


security  classification  of  this  rage  rskw  B«<  t»i*»tf 


REPORT  DOCUMENTATION  PAGE 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


s.  RECIPIENT'S  CATALOG  NUMBER 


4.  title  (mtfMitlla)  *  TYRE  of  report  a  period  COVEREO 

REAL-TIME  IMPLEMENTATION  OF  A  SPEECH  DIGITIZATION  Final 
ALGORITHM  COMBINING  TIME-DOMAIN  HARMONIC  SCALING  Feb'  1982  to  May  1983 
AND  ADAPTIVE  RESIDUAL  CODING  *  PeRro*M'“°  °"G-  "cport  number 


*.  CONTRACT  OR  GRANT  NUMBER! a) 

DCA-100-82-C-0026 


I.  AUTHOR! •> 

James  L.  Melsa 
James  D.  Mills 

Arvind  A.  Arora  _ 


9.  PERFORMING  ORGANIZATION  NAME  AND  AOORESS 

Department  of  Electrical  Engineering 
University  of  Notre  Dame 
Notre  Dame.  IN  46556 


<1.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 

Defense  Communications  Agency 
Contract  Management  Division,  Code  260 
Washington,  DC  20305  _ 


.  MONITORING  AGENCY  NAME  A  ADORESSTIf  ditfarant  from  Contnlllnt  Otflco)  IS.  SECURITY  CLASS,  (of  Una  rap orrj 


10.  PROGRAM  ELEMENT.  PROJECT,  TASK 
AREA  A  WORK  UNIT  NUMBERS 


12.  REPORT  DATE 

June  1983 


IS.  NUMBER  OF  PAGES 


Unclassified 


IS*.  DECLASSIFICATION/  DOWNGRADING 
SCHEDULE 


IE.  DISTRIBUTION  STATEMENT  (of  Hi  fa  Rapott) 


Distribution  of  this  document  is  unlimited.  If  may  be  released  to  the 
Clearinghouse,  Department  of  Commerce,  for  sale  to  the  public. 


17.  DISTRIBUTION  STATEMENT  (of  tha  mb. trod  antarad  In  Bloc*  30,  ft  dittarant  from  Rapott ) 


tt.  KEY  WORDS  (Continue  on  reverse  aide  It  necessary  and  Identify  by  block  number) 


Speech  coding,  16000  bps  speech  transmission,  time-domain  harmonic  scaling, 
adaptive  residual  coding,  hardware  realization. 


20.  ABSTRACT  ( Continue  on  reverse  aide  It  necessary  and  Identify  by  block  number) 

This  report  describes  the  results  of  a  fifteen-month  study,  supported  by 
DCA  Contract  100-82-C-0026,  of  the  real-time  implementation  of  algorithm  com¬ 
bining  time-domain  harmonic  scaling  (TDHS)  and  Adaptive  Residual  Coding  (ARC) 
at  a  transmission  bit  rate  of  16  kb/s.  The  modifications  of  this  encoding 
algorithm  as  originally  presented  by  Melsa  and  Pande  (1981)  to  allow  real-time 
implementation  are  described  in  detail.  A  non  real-time  FORTRAN  simulation 

(continued) - 


DO  .ST*  1473 


EDITION  OF  I  NOV  *S  IS  OBSOLETE 


Unclassified _ 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  !WA»n  Data  Entarad) 


tccumrv  cimi>jC4TjOjj  or  run  i»>a«f»«w  o— 


using  a  sixteen-bit  word  length  was  developed  and  tested  to  establish  * 
feasibility.  The  hardware  implementation  of  a  full-duplex,  real-time  system 
has  demonstrated  that  this  algorithm  is  capable  of  producing  toll  quality 
speech  digitization. 

This  report  has  been  divided  into  two  volumes.  The  first  volume  dis¬ 
cusses  the  algorithm  modifications  and  FORTRAN  simulation.  The  details  of 
the  hardware  implementation,  schematics  for  the  system  and  operating  instruc¬ 
tions  are  Included  in  Volume  2  of  this  final  report. 


Unclassified  _ 


mcuritv  CkMnne«TiON  or  this  PAOcomM*  *»*•»•*> 


ABSTRACT 


This  report  describes  the  results  of  a  fifteen-month  study,  sup- 


r 


ported  by  DCA  Contract  100-82-C-0026,  of  the  real-time  implementation  of 
an  algorithm  combining  time-domain  harmonic  scaling  (TDHS)  and  Adaptive 
Residual  Coding  (ARC)  at  a  transmission  bit  rate  of  16  kb/s.  The  modi¬ 
fications  of  this  encoding  algorithm  as  originally  presented  by  Melsa 


and  Pande  (1981)  to  allow  real-time  implementation  are  described  in 
detail.  A  non  real-time  FORTRAN  simulation  using  a  sixteen-bit  word 
length  was  developed  and  tested  to  establish  feasibility.  The  hardware 
implementation  of  a  full-duplex,  real-time  system  has  demonstrated  that 
this  algorithm  is  capable  of  producing  toll  quality  speech  digitization. 


•S'  i  '  0  r  J" 


This  report  has  been  divided  into  two  volumes.  The  volume 

discusses^the  algorithm  modifications  and  FORTRAN  simulation.  The 
details  of  the  hardware  implementation,  schematics  for  the  system  and 
operating  instructions, are  included  in  Volume  2  of  this  final  report. 


PROJECT  PERSONNEL 


James  L.  Melsa,  principal  investigator 
James  D.  Mills,  research  assistant 


* 


I 

TABLE  OF  CONTENTS 

Page 

ABSTRACT  .  ii 

PROJECT  PERSONNEL . . .  iii 

LIST  OF  FIGURES  AND  TABLES  .  v 

LIST  OF  ABBREVIATIONS  . vii 

CHAPTER  1:  INTRODUCTION  .  1 

CHAPTER  2:  HARDWARE  IMPLEMENTATION  . 2 

2.1  Analog  Interface . 2 

2.2  Digital  Interface  . . . . . .  2 

2.3  Clock  and  Timing  . . . . . .  2 

2.4  Control  Center  .  4 

2.5  Computation  Center  .  4 

2.6  Pitch  Extraction . . .  4 

CHAPTER  3:  INSTALLATION  AND  INTERFACE  .  7 

3.1  Installation  .  7 

3.2  Interface  .  7 

CHAPTER  4:  OPERATING  INSTRUCTIONS  .  12 

4.1  Introduction . . .  12 

4.2  Switches  and  Operations  .  12 

CHAPTER  5:  CONCLUSIONS  .  8 

APPENDIX  A:  MAINTENANCE:  SCHEMATICS  AND  COMPONENTS  .  19 

APPENDIX  B:  REAL  TIME  SOFTWARE  .  35 

B.l  Control  Center  Software:  TARC  .  35 

B.2  Pitch  Extraction  Software:  PEXTR  .  52 

B. 3  Processing  Software:  TDHS 14 ,  TDHSD4  .  67 

APPENDIX  C:  PRODUCTION  COST  ESTIMATE  .  119 

C. l  Off-the-Shelf  Component  Design  .  119 

C.2  Custom  LSI  TDHS-ARC  Transceiver  Design  .  119 


IV 


LIST  OF  FIGURES 


Page 

Figure  2.1  Layout  of  Circuit  Segments  in  TDHS-ARC  ...  3 

Figure  3.1  Null  Modem  Connections  for  TDHS-ARC  .  11 

Pigure  4.1  Front  Panel  Layout  for  the  TDHS-ARC  System  13 

Figure  4.2  Back  Panel  Layout  for  the  TDHS-ARC  System  14 

Figure  4.3  Functional  Block  Diagram  of  TDHS-ARC  .  15 

Figure  A.l  Layout  of  Circuit  Segments  in  TDHS-ARC  ...  20 

Figure  A. 2  Schematic  for  the  Analog  Interface  .......  21 

Figure  A. 3  Schematic  for  the  Digital  Interface  .  23 

Figure  A. 4  Schematic  for  the  Clock  and  Timing .  25 

Figure  A. 5  Schematic  for  the  Control  Center  . .  27 

Figure  A. 6  Schematic  for  the  Computation  Center  .  29 

Figure  A. 7  Schematic  for  the  Pitch  Extraction  .  31 

Figure  A. 8  Schematic  for  the  Back  Plane .  33 

Figure  A. 9  Edge  Connector  . 34 

Figure  B.l  Flow  Chart  for  the  Control  Program,  TARC  .  37 

Figure  B.2  Flow  Chart  for  the  Pitch  Extraction 

Program,  PEXTR  .  54 

Figure  B.3  Flow  Chart  for  Initialization .  68 

Figure  B.4  Main  Interrupt  Service  Routine  .  69 

Figure  B.5  Center  Clip  Routine  #1  for  Transmitter  ...  73 

Figure  B.6  TDHC  Routine  .  74 

Figure  B.7  ARC  Transmitter  Routine  .  75 

Figure  B.8  ARC  Receiver  Routine  . . 77 

Figure  B.9  Center  Clip  Routine  for  Receiver  .  79 

Figure  B.IO  Center  Clip  Routine  #2  for  Transmitter  ...  80 

Figure  B.ll  TDHE  Routine  #1  .  81 


v 


LIST  OF  FIGURES  (cont'd) 


I , 


Figure  B.12 
Figure  C.l 

Table  2.1 

Table  3.1 
Table  3.2 
Table  3.3 
Table  A.l 
Table  A. 2 
Table  A. 3 
Table  A. 4 
Table  A. 5 
Table  A. 6 


Page 

TDHE  Routine  #2  .  82 

Die  Segmentation  of  a  Cuatom  TDHS-ARC 
Transceiver  .  120 

Data  Flow  in  TDHS-ARC  Supervised  by  the  5 

Control  Center  . 

Handset  Jack  Connections  .  8 

Tape  Input/Output  Connections  .  8 

RS-232  Signal  Connections . . .  10 

Parts  List  for  the  Analog  Interface  . 22 

Parts  List  for  the  Digital  Interface  .....  24 

Parts  List  for  the  Clock  and  Timing  .  26 

Parts  List  for  the  Control  Center .  28 

Parts  List  for  the  Computation  Center  ....  30 

Parts  List  for  the  Pitch  Extraction  .  32 


1 


LIST  OF  ABBREVIATIONS 


DCA 

Defense  Communications  Agency 

TDHS 

time  domain  harmonic  scaling 

ARC 

adaptive  residual  coder 

FWL 

finite  word  length 

TDHC 

time  domain  harmonic  compression 

TDHE 

time  domain  harmonic  expansion 

CVSD 

continuously  variable  slope  delta  modulator 

8(k) 

input  sampled  speech  signal 

y(k) 

compressed  speech  signal 

q<k) 

quantizer  level  sequence 

q(k) 

system  estimate  of  the  original  q(k) 

y(k) 

system  estimate  of  the  original  y(k) 

8(k) 

system  estimate  of  the  original  s(k) 

LPF 

low  pass  filter 

FIR 

finite  Impulse  response 

Hz 

Hertz 

kb/s 

kilobits  per  second 

b/s 

bits  per  second 

BER 

bit  error  rate 

A 

triangular  or  change  in 

NO 

number  of  quantization  level 

MSF 

maximum  scaling  factor 

SFq 

qth  scaling  factor 

THq 

qth  threshold 

vii 


error  sequence 


system  estimate  of  original  e(k) 

approximation  to  the  standard  deviation 
of  input  sequence 

decibels 

clipping  level 

approximation  of  the  energy 


CHAPTER  1 


INTRODUCTION 

This  volume  describes  various  aspects  of  the  TDHS-ARC  hardware  system. 

The  TDHS-ARC  algorithm  and  its  development  is  described  in  Volume  l  of  this 
report. 

Chapter  2  discusses  the  algorithm  from  the  point  of  view  of  the  hardware 
partitioning.  Chapter  3  describes  the  installation  and  interface  procedures. 
Chapter  4  details  the  operating  instructions.  The  final  chapter  comments 
about  the  TDHS-ARC  hardware  and  its  further  potential.  Appendix  A  has  the 
schematics  and  parts  lists  for  maintenance  purposes.  Appendix  B  has  the  list¬ 
ings  for  the  real-time  software  in  the  three  processors  on  the  TDHS-ARC  board. 
Finally,  Appendix  C  presents  a  cost  estimate  for  the  TDHS-ARC  system  using 
off-the-shelf  LSI  components  and  a  custom  LSI  TDHS-ARC  transceiver. 
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CHAPTER  2 


HARDWARE  IMPLEMENTATION 

The  following  section  describes  the  TDHS-ARC  system  from  the  hardware 
point  of  view.  The  complete  system,  including  the  interface  circuitry,  is 
implemented  on  a  single  board.  The  hardware  is  divided  into  six  functional 
segments.  Figure  2.1  shows  the  hardware  block  diagram  and  t-  layout  of  the 
different  segments  in  the  hardware.  There  are  two  interface  sections,  a  clock 
and  timing  section,  a  control  section,  and  two  sections  that  actually  imple¬ 
ment  the  TDHS  algorithm. 

2.1  Analog  Interface  (Ref.  A*) 

The  analog  Interface,  set  to  one  side  of  the  board,  has  its  ground  plane 
isolated  from  the  rest  of  the  system  to  minimize  noise  pickup.  The  section 
consists  of  the  filters  and  codec  to  bandlimit  the  speech  signal  (50  Hz  -3400 
Hz)  and  to  encode  it  in  8-bit  p-law  format.  It  also  has  amplifiers  for  gain 
control  to  interface  signals  properly  to  the  telephone  and  tape  input/output. 

2.2  Digital  Interface  (Ref.  D) 

The  next  segment  is  the  digital  interface  and  it  performs  two  functions. 
It  does  the  level  conversion  between  TTL  signals  (clock  and  data)  and  the  bi¬ 
polar  RS-232  signals  required  to  connect  two  TDHS-ARC  systems.  It  also  does 
the  code-word  synchronization  on  the  incoming  data  stream.  The  synchroniza¬ 
tion  is  achieved  by  monitoring  the  alternation  of  code  words  0000  and  1111 
both  of  which  are  assigned  to  quantizer  level  0  which  has  a  very  high  proba¬ 
bility  of  occurrence,  especially  during  silence. 

2.3  Clock  and  Timing  (Ref.  T) 

The  clock  and  timing  section  has  a  crystal  stabilized  voltage  controlled 
oscillator  at  8.192  MHz  to  generate  the  system  clock.  It  can  be  free-run 
when  the  system  is  operated  stand  alone,  or  it  can  be  locked  to  the  clock  of 
*Refer8  to  schematic  diagram  labels. 
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Circuit  Segments  in  TDHS-ARC 


another  TDHS-ARC  system  to  enable  perfectly  synchronous  operation  between  the 
two  systems.  The  system  clock  is  divided  down  to  provide  the  different  timing 
signals  in  the  rest  of  the  system. 

2.4  Control  Center  (Ref.  M) 

The  control  center  is  based  on  an  8085  microprocessor.  It  contains  the 
buffers  to  store  speech  data  for  the  transmitter  and  receiver  sections  of  the 
algorithm,  and  it  is  responsible  for  supervising  all  the  data  transfer  from 
one  section  of  the  system  to  another.  Table  2.1  shows  the  data  flow  in  the 
system.  In  addition,  the  control  center  keeps  track  of  the  pitch  period. 
Whenever  necessary,  it  directs  the  pitch  extraction  section  to  find  a  new 
pitch  period  for  the  transmitter  or  the  receiver. 

The  TDHS-ARC  algorithm  is  actually  implemented  in  the  next  two  sections 
of  the  hardware,  the  computation  center  and  the  pitch  extraction  section. 

2.5  Computation  Center  (Ref.  C) 

The  arithmetic  operations  in  the  TDHS-ARC  algorithm  is  done  in  the  compu¬ 
tation  center.  This  section  consists  of  a  signal  processing  chip  (NEC7720) 
where  all  the  computation  is  performed,  and  the  various  interface  circuitry  to 
interface  the  signal  processing  chip  to  the  control  center.  All  data  is 
transferred  through  16  word  FIFO's.  The  NEC  chip  also  has  a  serial  interface 
to  the  codec  in  the  analog  interface  section. 

2.6  Pitch  Extraction  (Ref.  P) 

The  pitch  extraction  section  estimates  a  new  pitch  period  for  the  trans¬ 
mitter  and  receiver  whenever  directed  by  the  control  center.  Pitch  extraction 
is  done  using  a  three-level,  center-clipped  autocorrelation  technique.  This 
section  consists  of  a  microprocessor,  dual  memory  for  parallel  access  of  the 
clipped  speech,  and  hardware  for  addressing  and  correlation.  The  microproces¬ 
sor  initiates  a  block  correlation  operation  for  each  value  of  the  pitch 
period.  The  hardware  does  a  series  of  correlations,  incrementing  the  address 
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Table  2.1:  Data  Flow  in  TDHS-ARC  Supervised  by  the  Control  Center 


SOURCE 

INPUT 

FUNCTION/OPERATION 

OUTPUT 

DESTINATION 

NEC  7720  [Sn],|S 


Xmt.  Mem. 


NEC  7720 


Digital 

Interface 


NEC  7720 


Rev.  Mem. 


NEC  7720 


Sn,  Sn  +| 

Xmt.  Mem. 

Sn,  Sn  +1 

NEC  7720 

[sn],[sn+l] 

Clip  Mem. 

*  Sk%  Sk-t,T 

NEC  7720 

Qk 

Digital 

Interface 

NEC  7720 

Rev.  Mem. 
Clip.  Mem. 

NEC  7720 


over  Che  desired  block  of  clipped  speech  and  generates  a  histogram  value.  The 
microprocessor  reads  this  histogram  value  to  update  its  estimate  of  the  pitch 
period  and  re-initiates  another  block  correlation  operation.  When  the  pitch 
period  is  finally  determined,  the  value  is  passed  to  the  control  center.  The 
pitch  extraction  section  then  waits  to  be  instructed  to  find  another  pitch 
period. 


CHAPTER  3 


INSTALLATION  AND  INTERFACE 

The  TDHS-ARC  hardware  system  consists  of  a  single  wire-wrapped  board  in  a 
self-contained  chassis.  It  can  operate  stand-alone  in  the  digital  loopback 
configuration;  or  in  full  duplex  with  another  TDHS-ARC  system  (or  a  real-time 
TDHS-ARC  simulator)  over  a  synchronous  RS-232  interface  at  16  kbs.  The 
TDHS-ARC  system  requires  no  setup  or  calibration  prior  to  operation. 

3.1  Installation 

The  unit  should  be  checked  for  physical  damage  before  it  is  plugged  in. 
The  electrical  plug  is  a  standard  3-prong  appliance  plug  and  uses  120V  at  60 
Hz.  The  system  consumes  about  15  watts  of  power.  When  the  power  is  turned 
on,  the  "power-on"  led  displays  that  proper  voltages  are  being  supplied  to 
system.  Refer  to  the  Operating  Instructions  and  the  Maintenance  sections  for 
further  details. 

3.2  Interface 

The  TDHS-ARC  has  three  external  interfaces:  a  telephone  interface 
(analog),  a  tape  interface  (analog),  and  an  RS-232  interface  (digital). 

1.  Telephone  Interface:  The  interface  connector  is  a  4  prong  Switchcraft  A4M 
jack  located  on  the  front  panel.  It  interfaces  to  a  dynamic  microphone 
and  a  conventional  telephone  receiver.  The  connections  are  shown  in  Table 

3.1. 

2.  Tape  Interface:  The  tape  interface  located  on  the  back  panel  has  two 
stereo  coaxial  connectors  for  input  and  output.  The  interface  has  a 
dynamic  range  of  +  5  volts.  The  input  impedance  is  2K8  and  the  output  load 
impedance  should  be  greater  than  2Kfl.  The  connections  are  shown  in  Table 

3.2. 


7 


Table  3.1:  Handset  Jack  Connections 


Pin  # 

Signal 

1 

Microphone  In 

2 

Microphone  Return 

3 

Speaker  Out 

4 

Speaker  Return 

Table  3.2:  Tape  Input/Output  Connections 


Connector 

Signal 

Tip 

Signal 

Ring 

Return 

Sleeve 


Shield 


RS-232  Interface:  The  digital  interface  is  a  standard  synchronous  RS-232 
interface.  It  is  located  on  the  back  panel.  The  five  signals  used  in  the 
interface  are  shown  in  Table  3.3.  To  connect  two  TDHS-ARC  systems,  the 
cable  should  be  configured  as  a  null  modem,  Fig.  3.1. 


System  A 
Connector 


CHAPTER  4 


OPERATING  INSTRUCTIONS 

4.1  Introduction 

This  chapter  describes  how  to  operate  the  TDHS-ARC  hardware  system.  The 
system  encodes  an  analog  signal  into  a  16  kbs  data  stream  using  a  combination 
of  Time  Domain  Harmonic  Scaling  and  Adaptive  Residual  Coding.  The  hardware 
can  operate  in  a  single  system  configuration  by  looping  the  digital  data 
stream  from  the  transmitter  back  to  the  receiver  in  the  same  system;  or  it  can 
operate  in  full  duplex  by  interfacing  with  another  TDHS-ARC  system  over  a 
synchronous  RS-232  channel. 

a 

The  TDHS-ARC  system  requires  no  set-up  or  calibration  prior  to  operation. 
However,  it  has  several  modes  of  operation  which  can  be  selected  via  front 
panel  switches.  In  addition,  the  state  of  the  system  is  displayed  on  the 
front  panel  LED's.  Figure  4.1  shows  the  configuration  of  the  front  panel  and 
Figure  4.2  shows  the  back  panel.  Figure  4.3  shows  the  system  layout. 

4.2  Switches  &  Operation 

Power-On :  The  power  switch  turns  the  system  on.  The  LED  marked 
"power  on"  displays  that  all  the  power  supplies  in  the  system 
are  functional.  If  the  LED  stays  off,  one  or  more  of  the 
voltages  are  inoperational. 

Reset ;  The  system  resets  when  the  power  is  turned  on.  In 

addition,  it  can  be  reset  whenever  necessary  by  pressing  the 
"reset"  switch. 

Jjn£ut_Selec£:  The  system  interfaces  with  two  analog  inputs:  the 
telephone  handset  located  on  the  front  panel,  and  a  tape  i/o 
located  on  the  back  panel.  The  handset  input  is  a  dynamic 


Front  Panel  Layout  for  TDHS-ARC  System 


Functional  Block  Diagram  of  TDHS-ARC 


microphone  at  approximately  24  TLP,  and  the  output  is  a  con¬ 
ventional  receiver  at  10  TLP.  The  tape  input  and  output  are 
set  at  approximately  -6  TLP,  +  5v  peak. 

The  "input  select"  switch  on  the  front  panel  selects  one  of 
the  two  inputs  and  the  LED's  display  which  input  is  selected. 

Both  analog  outputs  are  always  active,  immaterial  of  which 
input  is  selected  as  shown  in  Fig.  4.3. 

Analog  Loop-Receive :  The  TDHS-ARC  system  uses  a  standard 

telephone  8-bit  p-law  codec  for  analog-to-digital  conversion. 

The  performance  of  the  analog-to-digital  and  the  digital-to- 
analog  conversion  system  can  be  monitored,  for  reference 
comparison  with  processed  signals,  in  the  "loop"  position  of 
the  switch  marked  "analog".  The  LED  marked  "analog  loop" 
displays  this  state.  Even  though  the  analog  signal  is  looped 
back  to  the  analog  output  stage,  the  TDHS-ARC  transmitter  and 
receiver  continue  to  operate  normally.  Fig.  4.3. 

In  the  "receive"  position,  the  output  of  the  receiver  sec¬ 
tion  of  TDHS-ARC  is  enabled  to  the  analog  output  stage.  Fig.  4.3. 

Digital  Loop-Receive:  The  transmitter  in  the  TDHS-ARC  system  en¬ 
codes  an  analog  signal  into  a  16  kbs  data  stream.  The  receiver 
in  the  system  takes  a  16  kbs  data  stream  and  decodes  it  into 
an  analog  signal. 

In  the  "loop"  position  of  the  "digital"  switch,  the  clock 


and  data  stream  out  of  the  transmitter  are  looped  back  to  the 
receiver,  Fig.  4.3  for  a  single  system  operation  of  TDHS-ARC. 
The  LED  marked  "digital  loop"  displays  the  loopback  state. 


In  the  "receive"  position,  the  TDHS-ARC  receiver  gets  the 
data  and  clock  from  the  RS-232  interface,  Fig.  4.3,  enabling  two 
systems  to  interact  with  each  other  in  full  duplex.  In  either 
position,  the  output  of  the  transmitter  is  always  enabled  to 
the  RS-232  port. 

Sync-Out  Display:  The  receiver  must  acquire  code-word 

synchronizer  ion  on  the  serial  data  it  receives  before  it 
can  start  processing  it  properly.  The  "sync-out"  display 
indicates  that  the  receiver  is  out  of  code-word  synchroni¬ 
zation.  Once  synchronizat ion  is  achieved,  the  LED  turns 
off. 

If  synchronization  is  lost  due  to  any  reason,  in  general, 
the  receiver  recognizes  the  loss  of  sync  and  tries  to  re¬ 
acquire  synchronization.  AIbo,  resetting  the  system  forces 
the  receiver  to  re-synchronize. 

Line-Out  Display:  In  the  full-duplex  mode,  the  receiver  gets 
the  clock  and  data  from  the  other  system.  The  receiver 
monitors  the  received  clock,  to  ensure  it  can  clock  in  the 
serial  data.  A  break  in  the  received  clock  causes  the 
"line-out"  display  to  illuminate.  This  automatically  re¬ 
initiates  code-word  synchronization. 
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CHAPTER  5 


CONCLUSIONS 

It  has  been  demonstrated  that  a  reasonable  size  single-board  full-duplex 
implementation  of  of  the  TDHS-ARC  algorithm  at  16  kbs  is  possible  and  produces 
toll  quality  speech.  The  design  of  the  prototype  system  delivered  as  part  of 
this  contract  emphasized  flexibility  rather  than  hardware  minimization.  It  is 
believed  that  considerable  hardware  optimization  can  be  achieved  (30X)  in  a 
redesign  of  this  system  for  production  using  off-the-shelf  LSI  components.  If 
a  custom  LSI  TDHS-ARC  transceiver  chip  is  developed  for  production,  the  sav¬ 
ings  in  terms  of  power,  size  and  cost  can  be  dramatic  (50  to  80Z)  without  loss 
in  performance. 


APPENDIX  A 

MAINTENANCE:  SCHEMATICS  AND  COMPONENTS 
This  section  presents  the  block  diagram  and  the  schematics  for  the  TDHS- 
ARC  hardware  system.  Figure  A.l  shows  the  physical  layout  of  the  board.  The 
TDHS-ARC  circuit  is  segmented  into  6  functional  sections:  analog  interface, 
digital  interface,  clock  and  timing,  control  center,  computation  center,  and 
pitch  extraction.  The  following  figures  and  tables  show  the  detailed  schemat¬ 
ics  for  each  of  the  segments  and  their  parts  lists.  Figure  A. 8  is  the  sche¬ 
matic  for  the  circuit  on  the  back  plane.  Figure  A. 9  shows  the  edge  connec- 


Fig.  A.l:  Layout  of  Circuit  Segments  in  TDHS-ARC 


TDHS-ARC  (Analog  Interface)  Ref:  A 


Table  A.l:  Parts  List 

for  the  Analog 

Interface 

PART  it 

DESCRIPTION  1 

USAGE 

+12v  -12v  +5v 

GNP 

747 

Dual  Op  Amp 

AU1 

1458 

Dual  Op  Amp 

AU2.AU3 

2912A 

Low  Pass  Filters 

AU4.AU5 

2910A 

p-law  Codec 

AU6 

74LS257 

Quad  2-1  Select 

AU7 

9 

11,15 

16 

5,13 

16 

8 

22 


Table  A. 2:  Parts  List  for  the  Digital  Interface 


PART  it 

DESCRIPTION 

USAGE 

+12v 

-12v 

+5v 

1 

GND 

26LS30 

RS423  Driver 

DU  2 

8(-5v] 

H 

5 

26LS32 

RS423  Receiver 

DU  3 

16 

8 

74LS00 

Quad  Nand 

DU21 

14 

■ 

74LS04 

Hex  Inverter 

DU  9 

i 

14 

n 

74LS20 

Dual  4  Input  Nand 

DU  10 

14 

n 

74LS32 

Quad  Or 

DU11.DU25 

14 

7 

74LS74 

Dual  Flip  Flop 

DU22.DU23 

14 

7 

74LS86 

Quad  Ex  Or 

DU  7 

14 

7 

74LS138 

3-8  Decoder 

DU12 

- 1 

16 

8 

74LS161A 

4  bit  Counter 

DU13,DU14,DU15,DU16, 
DU17 ,DU18 ,DU19 ,DU20 

I 

16 

8 

",  ,LS164 

S/P  Converter 

DU  5 

14 

7 

74LS166 

P/S  Converter 

DU4 

8 

74LS173 

Quad  Flip  Flop 

DUO 

16 

8 

74LS174 

Hex  Flip  Flop 

DU  24 

16 

8 

74LS257 

2-1  Data  Select 

DU1 

16 

8 

_  -  - 

74LS374 


Octal  Bus  Driver 


DU  8 
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TDHS-ARC  (Clock  and  Timing)  Ref: 


Table  A. 3:  Parts  List  for  the  Clock  and  Timing 


PART  # 


DESCRIPTION 


USAGE 


+12v  -12v  +5v  GND 


74LS00  Quad  Nand 


74LS04  Hex  Inverter 


74LS74  Dual  Flip  Flop 


74LS86  Quad  Ex  Or 


74LS161  I  4  bit  Counter 


TU3,TU4,TU5,TU8 


16  8 
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TDHS-ARC  (Control  Center)  Ref: 


Table  A. 4:  Parcs  List  for  the  Control  Center 


PART  it 

1 

DESCRIPTION 

USAGE 

3035 

Microprocessor 

MU1 

8155 

256x8  RAM, Ports 

MU2 

3755 

2KX8  EROM, PORTS 

MU3 

4801 

1KX8  RAM 

MU13,MU14,MU15 

74LS02 

Quad  Nor 

MU4 

74LS04 

Hex  Inverter 

MU5 

74LS32 

Quad  OR 

MU11 

74LS74 

Dual  Flip  Flop 

MU10 

74LS138 

3-3  Decoder 

MU6,MU7,MU8,MU9 

74LS374 

Octal  Bus  Driver 

MU12,MU16 

+12v  -12v  +5v  C.ND 


40  20 


40  20 


40  20 


24  12 


14 


Tabic  A. 5:  Parts  List  for  the  Computation  Center 


PART  // 

|  l 

DESCRIPTION 

USAGE 

+12v  -12v 

+5v 

77P20 

Signal  Processor 

CU7 

28 

74LS04 

Hex  Inverter 

CU1.CU11 

14 

74LS10 

3  Input  Nand 

CU10 

14 

74LS14 

Hex  Schmitt  Trigger 

CU12 

14 

74LS74 

Dual  Flip  Flop 

CU6,CU8,CU9 

14 

74LS224 

16X4  FIFO 

CU2,CU3,CU4,CU5 

16 

11*  IS* 


Table  A. 6:  Parts  List  for  the  Pitch  Extraction 


PARTS  // 

DESCRIPTION 

• 

USAGE 

+12v 

-1 2v 

+5v 

1 

GND 

8085 

Microprocessor 

PU30 

40 

20 

8155 

256X8  RAM, PORTS 

PU31 

40 

20 

8755 

2Kx8  EPROM, PORTS 

PU32 

40 

20 

4801 

1Kx8  RAM 

PU12.PU13 

24 

12 

74LS00 

QUAD  NAND 

PU17.PU18 

14 

7 

74LS02 

QUAD  NOR 

PU34 

14 

7 

74LS32 

QUAD  OR 

PU33 

14 

7 

74LS74 

Dual  Flip  Flop 

PU22.PU23.PU24 

• 

14 

7 

74LS133 

3-8  Decoder 

PU28.PU29 

16 

8 

74LS163 

4  bit  Counter 

PU1,PU2,PU3,PU4 

PU5.PU6 

16 

8 

74LS193 

4  bit  Up/Down  Counter 

PU25.PU26 

16 

8 

74LS257 

2-1  Data  Select 

PU7,PU8,PU9,PU10, 

PU11,PU15,PU16 

16 

8 

74LS373 

Octal  Bus  Driver 
(Transparent) 

PU14.PU27, 

20 

10 

74LS374 

Octal  Bus  Driver 

PU19.PU20.PU21 

20 

10 

L 


32 


APPENDIX  B 


REAL-TIME  SOFTWARE 

The  TDHS-ARC  hardware  has  3  processors  on  board.  This  section  provides 
the  listings  of  the  programs  in  each  of  the  processors.  The  first  program, 
TARC,  is  contained  in  the  8085  microprocessor  in  the  control  center.  The 
second  program,  PEXTR,  is  contained  in  the  8085  microprocessor  in  the  pitch 
extraction  segment.  The  third  and  fourth  programs  are  contained  in  the  NEC 
7720  signal  processing  chip  in  the  computation  center.  TDHSI4  is  the  instruc¬ 
tion  software  and  TDH5D4  is  the  data  software  for  the  signal  processing  chip. 
Each  of  the  programs  has  comments  in  the  right  margin  to  make  it  compre- 
hendible. 

B .1  Control  Center  Software:  TARC 

The  microprocessor  in  the  control  center  performs  three  tasks.  It  keeps 
track  of  the  addresses  in  the  transmitter  and  receiver  buffers  and  manages 
data  transfers  through  the  TDHS-ARC  system,  asks  for  pitch  period  extraction 
whenever  necessary,  and  monitors  the  synchronization  on  the  incoming  data 
stream.  The  program  is  interrupt  driven  and  the  process  cycle  is  repeated 
every  4  KHz.  This  corresponds  to  2  samples  of  the  input  speech. 

The  following  flowchart  describes  the  functions  being  performed  in  the 
control  processor.  In  the  first  section,  the  program  does  all  the  necessary 
data  transfers  and  address  management  for  the  transmitter.  It  then  monitors 
the  synchronization  on  the  received  quantizer  levels.  Finally,  it  does  the 
data  transfers  and  address  management  for  the  receiver.  The  initialization 
section  sets  up  the  microprocessor,  address,  data,  etc.,  for  subsequent  proc¬ 
essing  loops. 

The  flowchart  uses  the  following  symbols: 

Sn  -  Incoming  transmitter  sample 
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[sn] 

Sk 

Tx 


Clipped  value  of  transmitter  sample 
Transmitter  sample  used  in  TDHC 
Transmitter  pitch  period 
Cx  -  Count  of  the  samples  in  the  transmitter  pitch  period 
P(Sn)  -  Address  pointer  for  Sn 
Rn  -  Incoming  receiver  sample 
[Rn]  -  Clipped  value  of  receiver  sample 
Rfc  -  Receiver  sample  used  in  TDHE 
Tr  -  Receiver  pitch  period 

Cr  -  Count  of  the  samples  in  the  receiver  pitch  period 
P(Rn)  -  Address  pointer  for  Rn 
Pzcod  -  Previous  zero  code 

Zerr  -  #  of  consecutive  errors  in  the  received  zero  code 

Zcod  -  Zero  code 

Xcod  -  Transmitted  quantizer  code 
Rcod  -  Received  quantizer  code 
Tocnt  -  Time  Out  Count 

Xmem  -  Transmitter  memory,  contains  8  bit  p-law  speech  samples 
Rmem  -  Receiver  memory,  contains  16  bit  linear  samples  of  time 
domain  compressed  speech 

Pmem  -  Pitch  extraction  memory,  contains  center  clipped  speech, 

2  bits  per  sample,  for  the  transmitter  and  reciever 
Spc  -  I/O  port  on  the  Computation  Center 
Dio  -  Digital  Interface 

The  address  and  data  variables  that  are  saved  in  the  microprocessor  are 
listed  below.  All  the  other  variables  are  derived  from  these. 

P^fc),  P((Rn],  Tx,  Tr,  Cx,  Cr,  Pzcod,  Zerr,  Tocnt 
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Fig.  B.l:  Flow  Chart  for  the  Control  Program,  TARC 
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Fig.  B.l  (contd) :  Flow  Chart  for  the  Control  Program,  TARC 

39 


Fig.  B.l  (contd) :  Flow  Chart  for  the  Control  Program,  TARC 
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ASM80  :F1:TARC.SRC 


ISIS-II  8080/8085  MACRO  ASSEMBLER,  V4.0  HAIN  PAGE  1 


LOC  OBJ  LINE  SOURCE  STATEMENT 


1  {  This  program  for  control  and  data  management  for 

2  ;  TDHS-ARC.  Goes  in  Micro  1. 

3  ; 


4 

NAME 

MAIN 

0028 

5  ADNEC 

EQU 

28H 

{Port  for  NEC  i/o 

0039 

6  RSYNC 

EQU 

039H 

;Port  to  reset  sync 

0038 

7  QCODE 

EOU 

038H 

{Port  for  code  i/o 

0030 

8  PTEN 

EQU 

030H 

{Temp  port,  for  status 

000B 

9  ENINT 

EQU 

OOBH 

{Enable  interrupt  7.5 

0080 

10  RNINT 

EQU 

080H 

{Reset  interrupt  7.5 

08FF 

11  SPTR 

EQU 

OBFFH 

{Stack  pointer 

0800 

12  MHST 

EQU 

0800H 

{beginning  o/  nemory 

1000 

13  XNST 

EQU 

1000H 

{top  of  :<mt  mem 

1800 

14  RMST 

EQU 

1800H 

{top  of  rev  men 

2000 

15  PMST 

EQU 

2000H 

{top  of  pch  men 

2000 

16  PHSTX 

EQU 

2000H 

{top  of  pch  mem,  xnt 

A000 

17  PMSTR 

EQU 

OAOOOH 

{top  of  pch  men,  rev 

0037 

18  STP81 

EQU 

037H 

{status  for  8155 

0008 

19  ADS81 

EQU 

08H 

{8155  status  port 

0009 

20  AD81A 

EQU 

09H 

{8155  port  A 

000A 

21  AD81B 

EQU 

OAK 

{8155  port  B 

OOOB 

22  AD81C 

EQU 

OBH 

{8155  port  C 

0000 

23  STF87A 

EQU 

OOH 

{status  for  8755  A,  inp 

0000 

24  STP87B 

EQU 

OOH 

{status  for  8755  B,  inp 

0002 

25  ADS87A 

EQU 

02H 

{8755  A  status  port 

0003 

26  ADS87B 

EQU 

03H 

{8755  B  status  port 

0000 

27  AD87A 

EQU 

OOH 

{8755  port  A 

0001 

28  AD87B 

EQU 

01H 

{8755  port  B 

0804 

29  PTXSN 

EQU 

0804H 

{5n  pointer 

0808 

30  TXNT 

EQU 

0808H 

{pointer  Txmt 

080C 

31  CTXHT 

EQU 

080CH 

{pointer  xnt  counter 

0810 

32  PTCUS 

EQU 

0810H 

{pointer  code  word  sync 

0814 

33  PTRRN 

EQU 

0814H 

{pointer  Rn 

0818 

34  TRCV 

EQU 

0818H 

{pointer  Trcv 

081 C 

35  CTRCV 

EQU 

081CH 

{pointer  rev  counter 

OOFB 

36  NSKXA 

EQU 

OFBH 

{nsk  out  blO 

OOFB 

37  MSKRA 

EQU 

OFBH 

{nsk  out  blO 

0002 

38  HSKRB 

EQU 

02H 

{nsk  invert  b? 

00B2 

39  XXP 

EQU 

0B2H 

{msk.  xmt  ->  pchlrcv  bits) 

00B0 

40  XPX 

EQU 

OBOH 

{nsk  pch  ->  :<mt 

0038 

41  XPR 

EQU 

038H 

{msk  pchlxnt  bits)  ->  rev 

0104 

42  ZICODO* 

EQU 

0104H 

:cod  +1(0000).  err  ent  =  4 

invert  b9 
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FF04 

43 

Z I  COD  1 < 

>  EQU 

OFF04H 

; c od  -1(1111),  err  cnt  =  4 

2000 

44 

SYNCNT 

EOU 

2000H 

;tine  out  cnt  for  sync  acquisition 

0008 

45 

ZC0DE1 

EQU 

08H 

{zero  code:  1000 

0007 

46 

Z  CO  DEO 

EQU 

07H 

jsero  code:  0111 

47 

t 

0000 

48 

ORG 

OOOOH 

49 

STARTs 

0000 

C3D801 

50 

RSTOO: 

JMP 

1WIT 

;Reset  begins  at  INIT 

51 

• 

52 

JMain 

loop  begins  at  res 

et  7.5 

003C 

53 

ORG 

003CH 

003C 

310408 

54 

RST75: 

LXI 

SP,PTXSN 

;P(P<Sn) ) 

ISIS-II  8080/8085 

MACRO  ASSEMBLER,  04. 

0 

MAIN  PAGE  2 

LOC  OBJ 

LINE 

SOURCE 

STATEMENT 

55  ; 

003F  2A0808 

56 

LHLD 

TXMT 

J;<nt  T  . 

0042  3A0C08 

57 

LDA 

CTXMT 

;xMt  cntr  old 

0045  44 

58 

MOV 

B,H 

;«sb  =  00 

0046  3C 

59 

INR 

A 

0047  BD 

60 

CMP 

L 

Jconpare  uith  T 

0048  CA6600 

61 

JZ 

XPNEU 

;  neu  pitch  period 

62  ; 

63  ; 

;  old  pitch  period 

64  ; 

004B  320C08 

65  XPOLD: 

STA 

CTXMT 

Jsave  current  counter 

004E  4F 

66 

MOV 

C,  A 

jsave  in  C 

67  ; 

004F  EB 

68 

XCHG 

;DE=:<nt  T 

0050  El 

69 

FOP 

H 

;old  P ( Sn ) 

0051  23 

70 

INX 

H 

0052  3EFB 

71 

MV  I 

A,MSKXA 

Jftsk  out  blO 

0054  A4 

72 

ANA 

H 

0055  67 

73 

MOV 

H,A 

;HL=P(Sn) 

0056  E5 

74 

PUSH 

H 

75  ; 

0057  7E 

76 

MOV 

A,H 

0058  D328 

77 

OUT 

ADNEC 

;Sn  :<«e«  ->  NEC 

78  ; 

005A  3EFF 

79 

MV  I 

A,0FFH 

005C  D328 

80 

OUT 

ADNEC 

;T(-ve)  ->  NEC 

005E  EB 

81 

XCHG 

005F  19 

82 

DAD 

D 

;HL*P(Sn+T )  ,DE=P(Sn) 

0060  7E 

83 

MOV 

A,M 

0061  D328 

84 

OUT 

ADNEC 

;Sn+T  xneti  ->  NEC 

0063  C38B00 

85 

JMP 

XC0N1 

86  : 
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•«MiX 


0066 

3E00 

87  XPNEU: 

MV  I 

A  ,00H 

Jnew  counter  value 

0068 

320C08 

88 

STA 

CTXMT 

Jsave 

0068 

4F 

89 

MOV 

C,A 

;  and  in  C 

90  ; 

006C 

EB 

91 

XCHG 

006D 

El 

92 

POP 

H 

;HL=oId  P(Sn) 

O 

o 

O' 

m 

23 

93 

I  NX 

H 

006F 

19 

94 

BAD 

D 

0070 

3EFB 

95 

MV  3 

A,MSKXA 

;nsk  out  blO 

0072 

A4 

96 

ANA 

H 

0073 

67 

97 

MOV 

H,  A 

JHL-P(Sn)  new  pitch 

0074 

E5 

98 

PUSH 

H 

99  ; 

> 

0075 

7E 

100 

MOV 

A,  M 

0076 

D328 

101 

OUT 

ADNEC 

;Sn  ;<»5H  ->  NEC 

102  ; 

0078 

DB00 

103 

IN 

AD87A 

Jneu  Txnt 

007A 

0328 

104 

OUT 

ADNEC 

;  r  <-*ve)  ->  NEC 

007C 

5F 

105 

MOV 

E,A 

007D 

EB 

10/ 

XCHG 

007E 

220808 

107 

SHLD 

TXMT 

Jsave  new  T  . 

0081 

19 

108 

DAD 

D 

JHL=P(Sn+T) 

0082 

7E 

109 

MOV 

A,N 

ISIS-II 

8080/8085 

MACRO  ASSEMBLER,  V4.0 

MAIN  PAGE  3 

LOC 

OBJ 

LINE 

SOURCE  STATEMENT 

0083 

D328 

110 

OUT 

ADNEC 

JSn+T  xneri  ->  NEC 

111  ; 

11 2  ;  Ask 

for  new 

pitch 

113  ; 

0085 

7C 

114 

MOV 

A,H 

JNSB 

0086 

D30A 

115 

OUT 

AD81B 

0088 

7D 

116 

MOV 

A,L 

;lsb 

0089 

D309 

117 

OUT 

AD81A 

118  ; 

008B 

EB 

119  XC0N1 s 

XCHG 

;HL=P(Sn) 

008C 

09 

120 

DAD 

B 

JHL=P(Sn+cntr ) 

008D 

3EB2 

121 

HVI 

A,XXP 

Jnsk  xnen->pr«en, 

008F 

AC 

122 

XRA 

H 

0090 

67 

123 

MOV 

H,A 

;HL"P(CSk3) 

124  ; 

0091 

DB28 

125 

IN 

ADNEC 

J'3et  :<«t  bits 

0093 

B6 

126 

ORA 

N 

; ta-j  on  rev  bits 

0094 

77 

127 

MOV 

M,  A 

;CSk3  ->  pxnen 

128  ; 

0095 

23 

129 

INX 

H 

;HL-P(CSk4l]) 

0096 

DB28 

130 

IN 

ADNEC 

inv  b9 
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0098 

B6 

131 

ORA 

M 

0099 

*»-? 

132 

MOV 

M,  A 

;  CSk-*1 1  ->  p;;nen 

133 

9 

009A 

3EB0 

134 

MVI 

A,XPX 

;nsk  prnen->xnen 

009C 

AC 

135 

XRA 

H 

009D 

6? 

1 34 

MOV 

H,A 

JHL-P(Sk) 

137 

• 

t 

009E 

DB28 

138 

IN 

ADNEC 

OOAO 

77 

139 

MOV 

M,A 

;Sk  NEC  ->  xnen 

140 

V 

00A1 

23 

141 

INX 

H 

;HL=P(Sk+1 ) 

00A2 

DB28 

142 

IN 

ADNEC 

00A4 

77 

143 

MOV 

4i,A 

;Sk+1  NEC  ->  xnen 

144 

9 

145 

;  Code  uord  synchronization 

146 

• 

f 

147 

;  DUSYNC 

; 

IN 

ADNEC  ;♦*:»  DIAGNOSTIC  CODE  *** 

148 

9 

OUT 

ADNEC 

;loop  q  code  to  rev 

149 

f 

JMP 

CODCON 

00A5 

311008 

150 

CUSYNC: 

LXI 

SP.PTCUS 

OOAB 

El 

151 

POP 

H 

Jcontents:  H-  prev  0  code, 

41(0000) 

152 

• 

9 

-1(1111) 

153 

• 

9 

L-  err  ent,  «aj< 

=  3 

00A9 

DB38 

154 

IN 

OCODE 

OOAB 

4F 

155 

MOV 

C,  A 

JQcode  in  C 

OOAC 

07 

156 

RLC 

J  1  -  sync 

157 

9 

0  -  no  sync 

OOAD 

DACCOO 

158 

JC 

SYNQL 

;Sync,  continue 

159 

9 

160 

9 

No  sync 

OOBO 

2B 

161 

DCX 

H 

;HL  =  tine  out  for  acq  -  1 

00B1 

3E08 

162 

MVI 

A,ZC0DE1 

OOB3 

D328 

163 

OUT 

ADNEC 

JO  code  to  NEC 

164 

• 

f 
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00B5 

BC 

165 

CMP 

H 

00B6 

CAC100 

166 

167  ; 

JZ 

SRSTR 

;too  long,  restart  sync 

00B9 

DB28 

168 

IN 

ADNEC 

OOBB 

D338 

169 

OUT 

QCODE 

;Qcode  NEC  ->  DIO 

OOBD 

E5 

170 

PUSH 

H 

OOBE 

C34401 

171 

JMP 

CODCON 

; —  end  of  code  sync 

00C1 

DB28 

172  SRSTR: 

IN 

ADNEC 

00C3 

D33? 

173 

174  : 

OUT 

RSYNC 

;Qcode  NEC  ->  DIO,  restart  sync 

44 


r 


00C5  210020 

175 

LXI 

00C8  E5 

176 

PUSH 

00C9  C34401 

177 

178  ; 

JNP 

179  ;  — 

180  ; 

Sync, 

OOCC  07 

181  SYNQL : 

RLC 

OOCD  DA3C01 

182 

183  ; 

JC 

00D0  07 

184  ZCOD: 

RLC 

O0D1  DA0801 

185 

186  J 

JC 

00D4  24 

187  ZCODO: 

INR 

00D5  CAF900 

188 

189  J 

J2 

00D8  2601 

190  EZCODO: 

HOI 

OODA  2D 

191 

OCR 

000B  CAEAOO 

192 

193  ; 

JZ 

OODE  E5 

194 

PUSH 

OODF  3E08 

195 

HV1 

00E1  D328 

196 

197  J 

OUT 

00E3  DB28 

198 

IN 

00E5  D338 

199 

OUT 

00E7  C34401 

200 

201  J 

JHP 

OOEA  210020 

202  0VC0D0: 

LXI 

OOED  E5 

203 

PUSH 

OOEE  3E08 

204 

mu 

00F0  D328 

205 

OUT 

00F2  DB28 

206 

IN 

OOF 4  D339 

207 

OUT 

00F6  C34401 

208 

209  ; 

JHP 

00F9  210401 

210  RZCODOi 

!  LXI 

OOFC  E5 

211 

PUSH 

OOFD  3E08 

212 

HVI 

OOFF  D328 

213 

OUT 

0101  DB28 

214 

IN 

0103  D338 

215 

OUT 

0105  C34401 

216 

217  J 

JHP 

218  J —  Zero  co 

219  ; 

H, SYNCNT 


CODCON 

; —  end  of  code  sync 

continue 

;  1  -  non  zero  code 

NZCOD 

;  0  ■  zero  code 

Jtype:  1  -  1111  ZCOD  1 

ZC0D1 

;  0  -  0000  ZCODO 

H' 

RZCODO 

Jprev  code  -1  for  1111 

H,01H 

J error 

L 

Jupdate  err  cnt 

OVCODO 

; —  too  «any  errors 

H 

A,ZCQDE1 

ADNEC  JO  code  to  NEC 
ADNEC 

OCODE  jQcode  NEC  ->  DIO 
CODCON  end  of  code  sync 

H, SYNCNT 
H 

A,ZC0D£1 

ADNEC  JO  code  to  NEC 
ADNEC 

RSYNC  JQcode  NEC  ->  DIO,  restart  ac<j 
CODCON  J —  end  of  code  sync 

N, ZICODO  jcode  =  1,  err  cnt  -  3 

H 

A,ZC0DE1 

ADNEC  JO  code  to  NEC 
ADNEC 

flCODE  Jdcode  NEC  ->  DIO 
CODCON  J—  end  of  code  sync 

1111 


ISIS-II  8080/8085  HACRO  ASSEMBLER,  V4.0 

! 


MAIN  PAGE  5 


IOC  OBJ 


LINE 


SOURCE  STATEHENT 


0108 

25 

220 

ZC0D1 : 

DCR 

H 

0109 

CA2D01 

221 

JZ 

R2C0D1  Jprev  code  +1  for  0000 

222 

! 

010C 

26FF 

223 

EZC0D1 

:  HVI 

H.OFFH 

01 0E 

2D 

224 

DCR 

L 

01  OF 

CA1E01 

225 

JZ 

0UC0D1  ; —  too  nany  errors 

226 

• 

t 

0112 

E5 

227 

PUSH 

H 

0113 

3E08 

228 

NVI 

A.ZCODE1 

0115 

D328 

229 

OUT 

ADNEC  JO  code  to  NEC 

Oil? 

DB  28 

230 

IN 

ADNEC 

0119 

D338 

231 

OUT 

QCODE  JQcode  NEC  ->  DIO 

01 1  B 

C34401 

232 

JHP 

CODCON  -  end  of  code  sync 

233 

f 

01 1 E 

210020 

234 

0VC0D1 

:  LXI 

H.SYNCNT 

0121 

E5 

235 

PUSH 

H 

0122 

3E08 

236 

MU  I 

A.ZCODE1 

0124 

D328 

237 

OUT 

ADNEC  ;0  code  to  NEC 

0126 

DB28 

238 

IN 

ADNEC 

0128 

D339 

239 

OUT 

RSYNC  jQcode  NEC  %>  DIO,  restart  sync 

012A 

C34401 

240 

JHP 

CODCON  ; —  end  of  code  sync 

241 

• 

f 

01 2D 

2104FF 

242 

RZC0D1 

S  LXI 

H,ZIC0D1  ;code  =  -1(1111),  err  cnt 

0130 

E5 

243 

PUSH 

H 

0131 

3E08 

244 

MV  I 

A ,  ZCODE 1 

0133 

D328 

245 

OUT 

ADNEC  ;0  code  to  NEC 

0135 

DB28 

246 

IN 

ADNEC 

0137 

D338 

247 

OUT 

QCODE  jQcode  NEC  ->  DIO 

0139 

C34401 

248 

JHP 

CODCON  ; —  end  of  code  sync 

249 

• 

1 

250 

f 

Non  zero  code 

251 

■ 

f 

013C 

E5 

252 

NZCOD: 

PUSH 

H 

01 3D 

79 

253 

MOU 

A,C 

013E 

D328 

254 

OUT 

ADNEC  jQcode  DIO  ->  NEC 

0140 

DB28 

255 

IN 

ADNEC 

0142 

D338 

256 

OUT 

QCODE  ;Qcode  NEC  ->  DIO 

257 

CODCON 

• 

• 

258 

■ 

f 

259 

;  Receiver 

Section 

260 

! 

0144 

311408 

261 

LXI 

SP,PTRRN  ;P  for  pxnen 

0147 

El 

262 

POP 

H 

0148 

23 

263 

INX 

H 

264 

• 

r 

0149 

DB28 

263 

IN 

ADNEC  ;CRn3  fron  NEC 

014B 

B6 

266 

ORA 

M  Jtag  on  xnt  bits 

014C 

77 

267 

NOV 

N,A  ;save  in  prnen 

268 

• 

f 

014D 

3EFB 

269 

NVI 

J1.MSKRA  Lnsk  out  blO 

46 


I 


014F  A4 

270 

ANA 

H 

0150  67 

271 

MOV 

H,  A 

0151  £5 

272 

PUSH 

H 

jsave  PIRn] 

0152  EE38 

273 

XRI 

XPR 

Jnsk  p:tn»« 

0154  67 

274 

MOV 

H,  A 

;HL=P<Rk) 
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275  ; 

0155  DB28 

276 

IN 

ADNEC 

0157  77 

277 

MOV 

M,A 

1 

0158  DB28 

278 

IN 

ADNEC 

I 

015A  77 

279 

MOV 

H,A 

Jdouble  word  Rk  j 

280  ; 

i 

015B  EB 

281 

XCHG 

;DE=PtRk>  j 

015C  2A1808 

282 

LHLD 

TRCV 

015F  EB 

283 

XCHG 

JHL*P(Rk),  D£-Trcv 

284  ; 

1 

0160  3A1C08 

285 

LDA 

CTRCV 

Jrcv  pitch  block,  cntr  -ve 

0163  42 

286 

MOV 

B,D 

;  ntb  =  03H 

0164  3C 

287 

I  NR 

A 

0165  CA9C01 

288 

JZ 

RPNEU 

; —  new  pitch  period 

289  ; 

0168  321C08 

290  RPOLB: 

STA 

CTRCV 

jsave  pitch  block  cntr 

016B  4F 

291 

MOV 

C,A 

;  and  in  C 

016C  09 

292 

DAB 

B 

;HL=P<Rk-cntr> 

016D  3EFB 

293 

MV  I 

A.MSKRA 

Jnsk  out  blO 

016F  A4 

294 

ANA 

H 

0170  EE02 

295 

XRI 

MSKRB 

Jnsk  invert  b? 

0172  67 

296 

MOV 

H,  A 

JHL=P(Rn) 

297  ; 

0173  7E 

298 

MOV 

A,M 

Jdouble  word  Rn 

0174  D328 

299 

OUT 

ADNEC 

0176  7E 

300 

MOV 

A,M 

0177  D328 

301 

OUT 

ADNEC 

302  ; 

0179  23 

303 

INX 

H 

JHL=P(Rn+1) 

017A  7E 

304 

MOV 

A,N 

Jdouble  word  Rn+1 

017B  D328 

305 

OUT 

ADNEC 

017D  7E 

306 

MOV 

A,H 

017E  0328 

307 

OUT 

ADNEC 

0180  2B 

308 

OCX 

H 

JHL*P(Rn) 

309  ; 

0181  19 

310 

DAD 

D 

jHL=P(Rn-T) 

0182  7E 

311 

MOV 

A,M 

Jdouble  word  Rn-T 

0183  P328 

312 

OUT 

ADNEC 

: 

0185  7E 

313 

MOV 

A.M 

i 

j 

i 

47 

i 

i 

i 

i 

f 


T 


0186 

D328 

314 

OUT 

ADNEC 

315 

! 

0188 

23 

316 

INX 

H 

;HL=P(Rn+1-T) 

0189 

7E 

317 

HOV 

A,N 

{double  word  Rn+1-T 

Q18A 

D328 

318 

OUT 

ADNEC 

018C 

7E 

319 

HOV 

A,H 

018D 

0328 

320 

OUT 

ADNEC 

321 

• 

t 

018F 

3EFF 

322 

MV1 

A,0FFH 

{Trvc  (-ve)  to  NEC 

0191 

D328 

323 

OUT 

ADNEC 

324 

• 

9 

0193 

FB 

325 

mns 

El 

0194 

00 

326 

NOP 

> 

0195 

00 

327 

NOP 

0196 

00 

328 

NOP 

0197 

00 

329 

NOP 
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• 

0198 

00 

330 

NOP 

0199 

C39301 

331 

332  ; 

JMP 

TUA1T 

019C 

DB01 

333  RPNEU: 

IN 

AD87B 

{get  neu  Trcv 

019E 

4F 

334 

MOV 

C,  A 

{♦ve  7  in  C 

019F 

2F 

335 

CMA 

01  AO 

3C 

336 

INR 

A 

;-ve  T 

0 1 A 1 

5F 

337 

HOV 

E,A 

;  in  DE 

01A2 

321 C08 

338 

339  ; 

STA 

CTRCV 

{save  pitch  block  entr 

01A5 

19 

340 

DAD 

D 

;HL*P(Rk-cntr) 

01A6 

3EFB 

341 

HVI 

A,MSKRA 

Jfisk  out  blO 

01A8 

A4 

342 

ANA 

H 

01A9 

EE02 

343 

XRI 

MSKRB 

{nsk  invert  b9 

01 AB 

67 

344 

345  ; 

MOV 

H,  A 

;HL=P(Rn) 

346  ;  Ask 

for  new 

rev  pitch 

347  ; 

01  AC 

7C 

348 

NOV 

A,H 

;msb 

01  AD 

D30A 

349 

OUT 

AD81B 

01 AF 

7D 

350 

MOV 

A,L 

;lsb 

01  BO 

D309 

351 

352  ; 

OUT 

AD81A 

01B2 

7E 

353 

NOV 

A,M 

{double  word  Rn 

01B3 

D328 

354 

OUT 

ADNEC 

01 B5 

7E 

355 

MOV 

AfN 

01 B6 

D328 

356 

357  : 

OUT 

ADNEC 

1 


I 


0188 

23 

358 

INX 

H 

;hl=p<r»+i ) 

018? 

7E 

359 

MOV 

A,H 

{double  uord  Rn+1 

016A 

B32B 

360 

OUT 

ADNEC 

01 BC 

7E 

361 

MOV 

A,M 

01 BD 

D328 

362 

OUT 

ADNEC 

01 BF 

2B 

363 

364  ; 

DCX 

H 

{HL-P(Rn) 

01C0 

1? 

365 

DAD 

D 

{HL=P(Rn-T) 

01C1 

7E 

366 

MOV 

A,N 

{double  uord  Rn-T 

01C2 

D328 

367 

OUT 

ADNEC 

01C4 

7E 

368 

MOV 

A,  M 

01C5 

D328 

36? 

OUT 

ADNEC 

370  ; 

01C7 

23 

371 

1NX 

H 

;HL=P(Rn+1-T) 

01C8 

7E 

372 

MOV 

A,N 

{double  uord  Rn+1-T 

01C? 

D328 

373 

OUT 

ADNEC 

01CB 

7E 

374 

MOV 

A,H 

01CC 

D328 

375 

376  ; 

OUT 

ADNEC 

01CE 

79 

377 

MOV 

A,C 

{neu  Trcv  (+ve)  to  NEC 

01CF 

D328 

378 

379  ; 

OUT 

ADNEC 

« 

01D1 

EB 

380 

XCHG 

01D2 

221808 

381 

382  ; 

SHLD 

TRCV 

{save  neu  Trcv  -ve 

01D5 

C39301 

383 

384  ; 

JMP 

TUAIT 
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385  ; 

386  {Initialization 

387  { 

388  INI T 

• 

■ 

389  { 

01D8 

3E37 

390 

MV  I 

A,STP81 

01DA 

D308 

391 

OUT 

ADS81  {8155  portssA-strobed  out 

392  { 

B-out 

01DC 

3E00 

393 

NVI 

A,STP87A 

{8755  ports:A-inp 

01 DE 

D302 

394 

OUT 

ADS87A 

{  B-inp 

01E0 

D303 

395 

OUT 

ADS87B 

396  { 

397  { 

Initialize 

each  of  the 

variables 

398  { 

01E2 

310408 

399 

LXI 

SP,PTXSN 

{xnen  pointer  «  1000H 

01ES 

El 

400 

POP 

H 

01E6 

210010 

401 

LXI 

H.1000H 

01EA 

310808 

403  ; 

404 

LX1 

SP,7XMT 

01ED 

El 

405 

POP 

H 

01EE 

212800 

406 

LX1 

H.0028H 

01  FI 

E5 

407 

PUSH 

H 

01F2 

310C08 

408  ; 

409 

LXI 

SP.CTXMT 

01F5 

El 

410 

POP 

H 

0 1 F  6 

210000 

411 

LXI 

H,OOOOH 

0 1 F  9 

E5 

412 

PUSH 

H 

01  FA 

311408 

413  ; 

414 

LXI 

>SP,PTRRN 

01 FD 

El 

415 

POP 

H 

01 FE 

210020 

416 

LXI 

H,2000H 

0201 

E5 

417 

PUSH 

H 

0202 

311808 

418  ; 

419 

LXI 

SP,TRCV 

0205 

El 

420 

POP 

H 

0206 

210803 

421 

LXI 

H,03D8H 

0209 

E5 

422 

PUSH 

H 

020A 

311C08 

423  ; 

424 

LXI 

SP,CTRCV 

020D 

El 

425 

POP 

H 

020E 

210803 

426 

LXI 

H,  03D8H 

0211 

E5 

427 

PUSH 

H 

0212 

311008 

428  ; 

429 

LXI 

SP,PTCUS 

0215 

El 

430 

POP 

H 

0216 

210020 

431 

LXI 

H, SYNCNT 

0219 

E5 

432 

PUSH 

H 

021 A 

3EFF 

433  ; 

434  ; 

435  ; 

436 

Initialize 

MV  I 

FIFO,  13 

A,OFFH 

021 C 

0328 

437 

OUT 

ADNEC 

021E 

3E28 

438  ; 

439 

MVI 

A,28H 

,*Txnt  =  40  (0028H) 

;x«t  cntr  =  0 

Jrnen  pointer  =  2000H 
;  pxnen  for  rev  section 

jTrcv  =  -40  (03D8H)  10  bits 

Jrcv  cntr  =  -40 

;8000  for  code  sync  tine  out 
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0220 

0328 

440 

Mi  ; 

OUT 

ADNEC 

;t 

0222 

3EFF 

442 

MVI 

A,0FFH 

0224 

0328 

443 

OUT 

ADNEC 

;Sn+T 

0226 

3E00 

444 

MVI 

A,OOH 

0228 

0328 

445 

OUT 

ADNEC 

:ok 

446  ; 

022A  0328 

447 

OUT 

ADNEC 

022C  0328 

448 

OUT 

ADNEC 

;Rn,  double  word 

449  ; 

022E  0328 

450 

OUT 

ADNEC 

0230  0328 

451 

OUT 

ADNEC 

;Rn*1 

452  ; 

0232  0328 

453 

OUT 

ADNEC 

0234  0328 

454 

OUT 

ADNEC 

;Rn-T 

455  ; 

0236  0328 

456 

OUT 

ADNEC 

0238  0328 

457 

OUT 

ADNEC 

;Rn+1-T 

458  ; 

023A  3E28 

459 

HV1 

A  ,28H 

023C  0328 

460 

OUT 

ADNEC 

;Trcv 

461  ; 

023E  3E00 

462 

nvi 

A,OOH 

Jlnit  sync 

0240  0339 

463 

OUT 

RSYNC 

464  ; 

0242  3E80 

465 

NVI 

APRNINT 

{Reset  Interrupt 

0244  30 
) 

0245  3E0B 

466 

sin 

• 

467 

MV  I 

A,EN1NT 

{Enable  interrupt 

0247  30 

468 

sin 

466) 

0248  FB 

469 

EI 

0249  C39301 

470 

JMP 

TUAIT 

0000 

471  END 

START 

51 


B.2  Pitch  Extraction  Software:  PEXTR 

The  microprocessor  in  this  section  does  a  pitch  extraction  whenever 
requested  by  the  control  processor.  The  software  is  divided  into  two 
interrupt  driven  routines.  The  first  part  acknowledges  a  request  for  pitch 
extraction,  determines  whether  it  is  for  the  transmitter  or  receiver,  saves 
the  starting  address  for  pitch  extraction  and  seta  the  appropriate  pitch 
pending  flag.  The  second  routine  normally > sits  in  a  waiting  loop  which  polls 
the  status  of  the  pitch  pending  flags.  If  a  flag  is  set,  it  sends  out  the 
appropriate  correlation  addresses  to  the  hardware  (which  performs  the  actual 
correlation)  and  directs  the  hardware  through  the  range  of  possible  pitch 
periods.  The  point  of  highest  correlation  is  selected  to  be  the  pitch  period. 
It  outputs  the  new  pitch  period  (separate  ports  for  the  transmitter  and 
receiver),  resets  the  pending  flag  and  goes  back  to  the  polling  loop. 

The  flowchart  uses  the  following  symbols: 

Addr  -  Starting  address  for  pitch  extraction 

Mxr  -  Transmitter/receiver  mode 

Fx  -  Flag  to  indicate  request  for  transmitter  pitch 

Fr  -  Flag  to  indicate  request  for  receiver  pitch 

Faddr  -  Fixed  address  for  correlation 

Vaddr  -  Variable  address  for  correlation 

Xtag  -  Transmitter  indicator  to  hardware 

Rtag  -  Receiver  indicator  to  hardware 

Lb lk  -  Correlation  block  length 

H  -  Current  Histogram  value 

Hmax  -  Histogram  maximum 

T  -  Current  correlation  delay 

Ttoax  -  (pitch  period)  correlation  delay  corresponding 

to  histogram  maximum 
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Pitch  extraction  hardware 
Port  for  transmitter  pitch 
Port  for  receiver  pitch 


Pitch  Request  Acknowledgements: 


Fig.  B.2:  Flow  Chart  for  the  Pitch  Extraction  Program,  PEXTR 


Fig. 


Pitch  Extraction  Wait  Loop: 


B.2  (contd):  Flow  Chart  for  the  Pitch  Extraction  Program,  PEXTR 
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Receiver  Pitch: 


B.2  (contd): 


Flow  Chart  for  the  Pitch  Extraction  Program,  PEXTR 


5 


ASM80  :F1:PEXTR.SRC 
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1  ; 

2  ;  This  progran  does  the  pitch  extraction. 

3  ;  It  goes  into  nicro  2. 

4  ; 

5  ; 


COFF 

6  PTSTAK 

EQU 

OCOFFH 

{Stack  pointer 

COOO 

7  PTMMTP 

EQU 

OCOOOH 

(Menory  top 

COOO 

8  HISADR 

EQU 

OCOOOH 

(Max  hist.,  T 

C002 

9  XMTADR 

EOU 

OC002H 

(Addr  for  xnt  pitch 

C004 

10  RCVADR 

EQU 

OC004H 

(Addr  for  rev  pitch 

C006 

11  XTOLD 

EQU 

0C006H 

; Old  T  xnt 

C008 

12  RTOLD 

EQU 

0C0O8H 

;01d  T  rev 

OOOD 

13  ENINT 

EQU 

ODH 

;Int  nask  65 

OOFC 

14  STP81 

EQU 

OFCH 

(Status  for  8155  ports 

007C 

15  STI81 

EQU 

07CH 

(Status  -  stop  tiner 

OOCO 

16  AD81ST 

EQU 

OCOH 

(Port  -  8155  status 

00C1 

17  AD81A 

EQU 

0C1H 

(Port  -  8155  A 

00C2 

18  AD81B 

EQU 

0C2H 

(Port  -  8155  B 

00C3 

19  AD81C 

EQU 

0C3H 

(Port  -  8155  C 

00C4 

20  ADLCNT 

EQU 

0C4H 

(Port  -  tiner  LSB 

00C5 

21  ADHCNT 

EQU 

0C5H 

(Port  -  tiner  MSB 

OOFF 

22  STP87A 

EQU 

OFFH 

(Status  for  8755  A 

OOFF 

23  STP87B 

EQU 

OFFH 

(Status  for  8755  B 

0002 

24  ADS87A 

EQU 

02H 

(Port  -  status  8755  A 

0003 

25  ADS87B 

EQU 

03H 

(Port  -  status  8755  B 

0000 

26  AD87A 

EQU 

OOH 

(Port  -  8755  A 

0001 

27  AD87B 

EQU 

01H 

(Port  -  8755  B 

0099 

28  PCHRST 

EQU 

99H 

(Port  -  pitch  reset 

0098 

29  PCHSTX 

EQU 

98H 

(Port  -  pitch  strt,  Hist  out 

0090 

30  ADPLF 

EQU 

90H 

(Port  -  LSB  fixed  addr 

0088 

31  ADPLV 

EQU 

8BH 

(Port  -  LSB  variable  addr 

0080 

32  AOPHS 

EOU 

80H 

(Port  -  MSB  addr,  xnt/rev 

0064 

33  XLCNT 

EQU 

64H 

(100,  LSB,  xnt  pitch  blk  length 

OOCO 

34  XHCNT 

EQU 

OCOH 

(MSB,  xnt  pitch  blk,  node 

0064 

35  RLCNT 

EOU 

64H 

(100,  LSB,  rev  pitch  blk  length 

OOCO 

36  RMCNT 

EQU 

OCOH 

(MSB,  rev  pitch  blk,  node 

0000 

37  RCVDSP 

EQU 

OOH 

(Displacenent  for  rev  addr,-ve 

0028 

38  TADLA8 

EQU 

0028H 

(Starting  T 

00B9 

39  TCHT 

EQU 

0B9H 

(-71,  value  for  pitch  counter 

006E 

40  THORN 

EQU 

6EH 

(110,  add  to  entr  for  T  value 

0010 

41  XHTHSK 

EQU 

10H 

(Addr  nask  for  xnt 

60 


0018 

42 

RCVMSK 

EQU 

18H 

{Addr  nask  for  rev 

43 

> 

0000 

44 

ORG 

OOOOH 

0000 

C34301 

45 

RSTOO: 

JNP 

1NIT 

{Reset  at  1NIT 

0024 

46 

ORG 

0024H 

0024 

C31C01 

47 

RSTTR: 

JHP 

TRAP 

{Trap  at  TRAP 

0034 

48 

ORG 

0034H 

49 

! 

50 

;  Here  starts 

,  the 

process  for  each  histogran 

51 

f 

0034 

31FFCO 

52 

RST65: 

LXI 

SP.PTSTAK 

53 

• 

9 

0037 

13 

54 

1NX 

D 

{update  var.  addr 

ISIS-II 

8080/8085 

HACRO 

ASSEMBLER,  04. 
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NODULE  PAGE  2 

LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0038 

7B 

55 

NOV 

A»E 

{addr  LSB 

0039 

D388 

56 

OUT 

ADPLV 

003B 

7A 

57 

NOV 

A,D 

{addr  MSB 

003C 

D380 

5B 

OUT 

ADPMS 

59 

• 

9 

003E 

DB98 

60 

IN 

PCHSTX 

{read  histogran 

0040 

D398 

61 

OUT 

PCHSTX 

; restart  next  histograw 

62 

• 

f 

0042 

04 

63 

INR 

B 

{check  if  end  of  pitch 

0043 

CA5A00 

64 

JZ 

PCHEND 

65 

• 

9 

0046 

FEOO 

66 

CPI 

OOH 

Jcheck  +ve 

0048 

FA5600 

67 

JH 

PUAIT 

004B 

BE 

68 

CNP 

N 

004C 

FA5600 

69 

JN 

PUAIT 

J<  , continue 

004F 

CA5600 

70 

JZ 

PUAIT 

{  =  , continue 

71 

• 

f 

0052 

77 

72 

HSTUP1 :  NOV 

M,A 

{save  new  hist. 

0053 

2C 

73 

INR 

L 

0054 

70 

74 

NOV 

M,B 

{save  new  Tna:< 

0055 

2D 

75 

OCR 

L 

76 

• 

f 

0056 

FB 

77 

PUAIT :  El 

0057 

C35600 

78 

JNP 

PUAIT 

79 

• 

1 

80 

;  End  of  current  pitch  extraction 

81 

• 

f 

005A 

FEOO 

82 

PCHEND:  CPI 

OOH 

{check  +ve 

005C 

FA6A00 

83 

JN 

PEND1 

84 

• 

9 

005F 

BE 

85 

CNP 

H 

61 


0060 

FA6A00 

86 

JH 

PEND1 

0063 

CA6A00 

87 

JZ 

PEND1 

Jold  Max, continue 

88 

i 

0066 

77 

8? 

HSTUP2:  MOV 

M,  A 

Jsave  new  hist  Max 

0067 

2C 

90 

INR 

L 

0068 

70 

91 

MOV 

M,B 

Jsave  Tnax 

006? 

2D 

92 

DCR 

L 

93 

» 

O 

o 

o* 

J> 

7A 

94 

PEND1 :  HOV 

A,D 

; cont  end  of  pitch 

006B 

07 

95 

RLC 

; check  xMt/rcv 

006C 

DA7BOO 

96 

JC 

PCHRCV 

Jb7=1,  rev  pitch 

97 

• 

f 

006F 

2C 

98 

PCHXHT :  INR 

'L 

Jpoint  to  Twax 

0070 

7E 

9? 

MOV 

A,  H 

0071 

C66E 

100 

ADI 

TNORM 

Jadd  110  to  entr 

0073 

D300 

101 

OUT 

AD87A 

Jx«t  pitch 

0075 

3206C0 

102 

STA 

XTOLD 

;save  Told 

0078 

C3D100 

103 

JMP 

PRNXT 

104 

■ 

r 

007B 

2C 

105 

PCHRCV:  INR 

L 

{point  to  Tnax 

007C 

7E 

106 

HOV 

A,H 

0 

007D 

C66E 

107 

ADI 

TNORM 

{add  110  to  entr 

007F 

D301 

108 

OUT 

AD87B 

{rev  pitch 

0081 

3208C0 

10? 

STA 

RTOLD 

Jsave  Told  rev 

ISIS-11 
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0 

MODULE  PAGE  3 

LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0084 

C38700 

110 

JMP 

PXNXT 

111  J 

112  J  Next  pitch  extraction  operation 

113  J 

0087 

DBOO 

114  PXNXT : 

IN 

AD87A 

f 

0089 

07 

115 

RLC 

008A 

D2D100 

116 

JNC 

PRNXT 

Jb7=1,  new  xnt  pitch  needed 

008D 

2A02CO 

117  PXNXT1 

:  LHLD 

XNTADR 

0090 

2B 

118 

DCX 

H 

0091 

EB 

11? 

XCH6 

0092 

2A06C0 

120 

LHLD 

XTOLD 

Jaddr+Told-1 

0095 

1? 

121 

DAD 

D 

0096 

112800 

122 

LXI 

D.TADLAG 

009? 

7D 

123 

MOV 

A,L 

009A 

D390 

124 

OUT 

ADPLF 

;LSB,  fixed  addr 

009C 

7C 

125 

NOV 

A,H 

009D 

E603 

126 

ANI 

03H 

J2  LSB 

009F 

67 

127 

MOV 

H,  A 

00A0 

07 

128 

RLC 

00A1 

07 

12? 

RLC 

62 


; to  b3,4  and  :<nt  node  b7-0 


00A2 

07 

130 

RLC 

O0A3 

47 

131 

MOV 

00A4 

19 

132 

DAD 

00A5 

7D 

133 

MOV 

00A6 

D  3  8  8 

134 

OUT 

00A8 

7C 

135 

MOV 

00A9 

E603 

136 

ANI 

OOAB 

BO 

137 

ORA 

OOAC 

D380 

138 

OUT 

OOAE 

5B 

139 

MOV 

OOAF 

57 

140 

141  J 

MOV 

00B0 

3E64 

142 

MV1 

00B2 

D3C4 

143 

OUT 

00B4 

3EC0 

144 

MV  I 

00B6 

D3C5 

145 

146  J 

OUT 

OOB8 

3E7C 

147 

MV1 

OOBA 

D3C0 

148 

OUT 

OOBC 

D398 

149 

OUT 

OOBE 

3EFC 

150 

MV1 

OOCO 

D3C0 

151 

OUT 

00C2 

D398 

152 

153  J 

OUT 

0  0  C  4 

06B9 

154 

MVI 

00C6 

21 OOCO 

155 

LX  I 

00C9 

36FF 

156 

MVI 

OOCB 

2C 

157 

INR 

OOCC 

70 

158 

MOV 

OOCD 

2D 

159 

160  J 

DCR 

OOCE 

C35600 

161 

162  J 

JMP 

00D1 

DB01 

163  PRNXT : 

IN 

00B3 

07 

164 

RLC 

B,A 

D  Jvar  addr  in  HL 

A,L 

ADPLV  JLSB,  var.  addr 
A,H  Jget  MSB  van  addr 

03H  ; fiask  b0,1 

B  Jconbine  2  addr,  node 

ADPMS  ;out  MSB  addr 
E,L  JLSB  in  E 

D,A  JMSB  in  D 

'AjXLCNT  Jset  up  xnt  block  length 

ADLCNT 

A,XNCMT 

ADMCNT 

A,STI81  Jstop  tiner 

AD81ST 

PCHSTX 

A, STP81  Jblock  for  xnt 
AD81ST 

PCHSTX  Jstart  pitch 

B, TCNT  ;T  counter 

H,H1SADR  Jaddr  for  hist  nax 

H,0FFH  Jh«ax*-1 
L 

N,B  jTnax=-70 
L 

PUAIT 

AD87B 
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MODULE  PAGE 

LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

00D4 

D28700 

165 

JNC 

PXNXT 

166 

• 

1 

00D7 

2A04C0 

167 

PRNXT1 :  LHLD 

RCVADR 

OODA 

EB 

168 

XCK6 

OODB 

2A08C0 

169 

LHLD 

RTOLD 

Jaddr+Told 

OODE 

19 

170 

DAD 

D 

OODF 

112800 

171 

LXI 

D,TADLAG 

00E2 

7D 

172 

MOV 

A,L 

00E3 

D390 

173 

OUT 

ADPLF 

USB  fixed  .ad' 

63 


174  ; 

00E5  7C 

175 

MOV 

A,H 

00E6  E603 

176 

ANI 

03H 

00E8  67 

177 

MOV 

H,  A 

00E9  07 

178 

RLC 

OOEA  07 

179 

RLC 

OOEB  07 

180 

RLC 

OOEC  F680 

181 

ORI 

80H 

; to  b3,4  and  rev  node  b7=1 

OOEE  47 

182 

MOV 

B,A 

OOEF  19 

183 

DAD 

D 

OOFO  7D 

184 

MOV 

A,L 

00F1  D388 

185 

OUT 

ADPLV 

;LSB  var  addr 

186  ; 

% 

00F3  7C 

187 

MOV 

A,H 

00F4  E603 

188 

ANI 

03H 

00F6  BO 

189 

ORA 

B 

00F7  D380 

190 

OUT 

ADPHS 

JMSB  addr, node 

00F9  57 

191 

MOV 

M 

OOFA  5D 

192 

MOV 

E,L 

193  ; 

OOFB  3E64 

194 

MVI 

A,RLCNT 

;set  up  pitch  blocj  length 

OOFD  D3C4 

195 

OUT 

ADLCNT 

OOFF  3EC0 

196 

MVI 

A,RMCNT 

0101  D3C5 

197 

OUT 

ADMCNT 

198  ; 

0103  3E7C 

199 

MVI 

A ,  ST  1 8 1 

{stop  tiner 

0105  D3C0 

200 

OUT 

AD81ST 

0107  D398 

201 

OUT 

PCHSTX 

0109  3EFC 

202 

MVI 

A,STP81 

;block  for  rev 

01  OB  D3C0 

203 

OUT 

AD81ST 

010D  D398 

204 

OUT 

PCHSTX 

Jstart  pitch  extr 

205  ; 

01  OF  06B9 

206 

MVI 

B,TCNT 

Jinit  val  for  p  entr 

0111  2100C0 

207 

LXI 

H,HISADR 

0114  36FF 

208 

MVI 

M,0FFH 

;Hnax=-1 

0116  2C 

209 

INR 

L 

0117  70 

210 

MOV 

M,B 

0118  2D 

211 

DCR 

L 

212  ; 

0119  C35600 

213 

JMP 

PUAIT 

214  ; 

215  ; 

New  pitch  address  is 

received  here 

216  ; 

011C  F5 

217  TRAP 

:  PUSH 

PSU 

01 1 D  E5 

218 

PUSH 

K 

Oil E  DBC1 

219 

IN 

AD81A 

,'LSB  first 

ISIS- I I  8080/6085  MACRO  ASSEMBLER,  V4.0  MODULE  PAGE  5 
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LOC  OBJ 

LINE 

SOURCE 

STATENENT 

0120  6F 

220 

NOV 

L,A 

0121  DBC2 

221 

IN 

AD81B  ;NSB  second 

0123  67 

222 

NOV 

H,A 

0124  E618 

223 

ANI 

RCVNSK  ; Mask  b3f4 

0126  FE10 

224 

CPI 

XNTNSK 

0128  CA3701 

225 

226  ; 

JZ 

XNTPCH  ;-30  to  xnt  section 

012B  2204C0 

227  RCVPCH 

:  SHLD 

RCVADR  Jrcv  section 

012E  DB01 

228 

IN 

AD87B 

0130  F680 

229 

ORI 

80H  JB7-1 

0132  D30 1 

230 

OUT 

*AD87B 

0134  El 

231 

POP 

H 

0135  FI 

232 

POP 

PSU 

0136  C? 

233 

234  ; 

RET 

0137  2202C0 

235  XNTPCH 

:  SHLD 

XNTADR  ; x«t  section 

013A  DBOO 

236 

IN 

AD87A 

013C  F680 

237 

ORI 

80H  Jb7*1 

013E  D300 

238 

OUT 

AD87A 

0140  El 

239 

POP 

H 

0141  FI 

240 

POP 

PSU 

0142  C9 

241 

242  ; 

RET 

243  ;  Initialization 

244  ; 

0143  31FFC0 

245  I NIT s 

246  ; 

LXI 

SP,PTSTAK 

0146  3E0A 

247 

HVI 

A,OAH  Jset  up  pitch  block  *10 

0148  D3C4 

248 

OUT 

ADLCNT 

014A  3EC0 

249 

NVI 

A,XHCNT 

014C  D3C5 

250 

OUT 

ADNCNT 

014E  3E7C 

251 

NVI 

A,ST181  Jstop  counter 

0150  D3C0 

252 

OUT 

AD81ST 

0152  3EFC 

253 

NVI 

AfSTP81  ;set  8155  ports 

0154  D3C0 

254 

255  ; 

OUT 

AD81ST 

0156  3EFF 

256 

NVI 

A,STP87A  ;set  8755  ports 

0158  D302 

257 

OUT 

ADS87A 

015A  D303 

258 

OUT 

ADS87B 

015C  3E28 

259 

NVI 

A,TADLAG  ; initial  T  value 

015E  D300 

260 

OUT 

AD87A 

0160  0301 

261 

OUT 

AD87B 

0162  6F 

262 

NOV 

L,A 

0163  2600 

263 

NVI 

H,OOH 

0165  2206C0 

264 

SHLD 

XT  OLD 

0168  2208C0 

265 

266  ; 

SHLD 

RTOLD  jsave  old  T 

016B  2100C0 

267 

LXI 

H, HISADR 

016E  06FF 

268 

HVI. 

.  B^OFFH  :Tcount*-1 

0170 

1600 

269 

MV  I 

D,OOH 

0172 

1 EOO 

270 

271  ; 

MVI 

E,OOH 

;addr=0 

0174 

0399 

272 

273  ; 

OUT 

PCHRST 

0176 

3E0D 

274 

MV  I 

A,ENINT  {setup 

interrupts 

1SIS-I1 

8080/8085 

MACRO  ASSEMBLER,  V4. 

0  NODULE 

PAGE 

LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

\ 

0  0178 

30 

275 

SIN 

() 

0179 

F3 

276 

277  ; 

01 

017A 

C38700 

278 

279  ; 

JNP 

PXNXT 

0000 

280  END 

RSTOO 

66 


B.3  Processing  Software;  TDHSI4,  TDHSD4 

The  processing  software  resides  at  NEC  7720  Digital  Signal  Processor. 

The  software  starts  with  the  initialization  steps  followed  by  the  interrupt 
service  routine  which  includes  Center-clipt,  TDHC,  ARC-Transmitter ,  ARC- 
Receiver  and  TDHE  routines.  The  symbols  used  in  the  flow  charts  are  described 
as  follows: 

em  -  Transmitter  prediction  error. 

em  -  Reconstructed  transmitter  prediction  error 

et  -  Reconstructed  receiver  prediction  error 

<Ef>  _  Threshold  for  transmitter  center-clip 

<Eg>  -  Threshold  for  receiver  center-clip  , 

A 

Pm  -  Transmitter  prediction  value 

A 

Pt  -  Receiver  prediction  value 
Qm  -  Transmitted  quantizer  code 

A 

Qt  -  Received  quantizer  code 

Rm  -  Transmitter  compressed  sample 

Rt  -  Receiver  reconstructed  compressed  sample 

ex,  -  Receiver  reconstructed  compressed  sample  for  TDHE 

RM9n  -  Quantizer  adaptive  coefficient  for  transmitter 

RMSt  -  Quantizer  adaptive  coefficient  for  receiver 

Sn  -  Incoming  transmitter  sample 

Sfe  -  Transmitter  sample  used  in  TDHC 

[Sn]  -  2-Bit  center-clipped  value  for  Sn 

S£  -  Reconstructed  sample 

Tx  -  Transmitter  pitch  period 

Tg  -  Receiver  pitch  period 

THRj  -  Quantizer  thresholds 

THSj  -  Quantizer  output  factors 
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Fig.  B.3  Flowchart  for  the  Initialization 


Fig.  B4  Main  Interrupt  Service  Routine 


Fig.  B 


.4  (contd.)  Main  Interrupt  Service  Routine 
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Fig.  B.4  (contd.)  Main  Interrupt  Service  Rotuine 


Output 


Output 


Lmear-to-u 


Conversion 


Output 


nable 


Interrupt 


e. 


Fig. 


- * _ 

Quantizer 

e_  cf.  THR.*  RMS 
t  j  m 


.7  ARC-Transmitter  Routine 
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m 


Fig.  B 


.8  (contd)  ARC-Receiver  Routine 


<< 
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Fig.  B.9  Center-Clip  Routine  for  Receiver 
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Fig.  B.10  Center-Clip  #2  for  Transmitter 
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Fig.  B.12  TDHE  #2  Routine 
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**  UPD7720  ASSEMBLY  LIST  **  <7/5/83  )  MODULE  TBHSI4.SRC  PAGE  0001 


(  TDHS  It  4  ) 

STNO  LOC.  SOURCE  STATEMENT 


0001 

0000 

MPROG 

9 

0002 

0000  /* 

*****************  *******:»  :t*:***4**'t**'t4*«**:t:t***4****  ****:*-» 

0002 

0000 

* 

* 

0002 

0000 

* 

TDHS  -  ARC  * 

0002 

0000 

* 

* 

0002 

0000 

****************************************:****************** 

0002 

0000 

0002 

0000 

AUTHOR: 

HAULIN  YEH 

0002 

0000 

DATE: 

9/8/83 

0002 

0000 

0002 

0000 

PROGRAM: 

TDHS14.SRC 

0002 

0000 

0002 

0000 

VERSION 

SI :  12/13/82 

0002 

0000 

ARC  TRANSMITTER  3  RECEIVER 

0002 

0000 

TDHS  TRANSMITTER 

0002 

0000 

CENTER-CLIP  TRANSMITTER  3  RECEIVER 

0002 

0000 

0002 

0000 

VERSION 

82:  3/11/83 

0002 

0000 

ARC  TRANSMITTER  3  RECEIVER 

0002 

0000 

INCLUDE  TDHS  RECEIVER 

0002 

0000 

INCLUDE  LINEAR-TO-MU  CONVERTER 

0002 

0000 

0002 

0000 

VERSION 

83:  6/29/83 

0002 

0000 

NEW  CODE  UORDS 

0002 

0000 

4TH-0RDER  FIXED  PREDICTOR 

0002 

0000 

0002 

0000 

VERSION 

84:  7/1/83 

0002 

0000 

ARCJ  ALGORITHM 

0002 

0000 

0002 

0000 

ABSTRAC1 

*  i 
• 

0002 

0000 

TDHS: 

A  CENTER-CLIP  ROUTINE  IS  USED  TO  PROVIDE  CENTER-CLIP 

0002 

0000 

VALUES  TO  THE  PITCH  EXTRACTION  HARDUARE.  A  FIRST-ORDER 

0002 

0000 

FILTER  IS  EMPLOYED  TO  CALCULATE  THE  ADAPTIVE  THRESHOLD 

0002 

0000 

WITH  A  TINE  CONSTANT  ABOUT  12ns. 

0002 

0000 

ARC: 

THE  ADAPTIVE  QUANTIZER  USES  A  FIRST-ORDER  FILTER  TO 

0002 

0000 

ESTIMATE  THE  ADAPTIVE  QUANTIZER  STEP  SIZE  UITH  A  TIME 

0002 

0000 

CONSTANT  ABOUT  IOas.  IT  CAN  BE  VERIFIED  THAT  THE 

0002 

0000 

MAXIMUM  DISCREPANCY  ON  THE  ADAPTIVE  QUANTIZER  STEP  SIZE 

0002 

0000 

BETWEEN  THE  TRANSMITTER  AND  THE  RECEIVER  DUE  TO  A  SINGLE 

0002 

0000 

CHANNEL  ERROR  IS  7.4Z.  ALSO,  ONCE  A  DISCREPANCY  OCCURS, 

0002 

0000 

IT  WILL  REMAIN  THERE  UNTILL  REACHING  THE  MINIMUM  QUANTIZER 

0002 

0000 

STEP  SIZE  WHICH  IS  SET  TO  BE  32.  NOTE  THAT  THERE  IS  NO 

0002 

0000 

OVERFLOW  CONTROL  ON  THIS  PARAMETER. 

0002 

0000 

THE  LINEAR  PREDICTOR  INVOLVES  THREE  PREDICTORS.  A  4th-QRDER 

0002 

0000 

RECURSIVE  VOICE-TYPE  PREDICTOR  EMPHASIZES  THE  BANDWIDTH 

l 


I 
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( 

TDHS  H  4 

) 

STNO 

LOC. 

SOURCE 

STATEMENT 

0002 

0000 

BETWEEN  700Hz  TO  1100Hz.  A 

4th-0RDER  RECURSIVE  MODEM-TYPE 

0002 

0000 

PREDICTOR  EMPHASIZES 

THE  BANDWIDTH  BETUEEN  600Hz  TO  3400Hz. 

0002 

0000 

A  4th-0RDER  ADAPTIVE 

NON-RECURSIVE  PREDICTOR  EHPHASIZES 

0002 

0000 

THE  REGION  UHERE  PREDICTOR 

ERROR  SIGNALS  HAS  DOMINANT  ENERGY. 

0002 

0000 

IT  CAN  BE  VARIFIED  THAT  THE 

ADAPTIVE  PREDICTOR  COEFFICIENTS 

0002 

0000 

ARE  ABSOLUTELY  TRACKING  BETUEEN  TRANSMITTER  AND  RECEIVER. 

0002 

0000 

THE  SYSTEM  16  ABSOLUTELY  STABLE. 

0002 

0000 

0002 

0000 

*/ 

0002 

0000 

ORG 

OOH 

? 

0003 

0000 

DRABS 

EQUAL 

0180H 

;  /*  ABS.  AND  TABLE-LOOK-UP  */ 

0004 

0000 

RPINI 

EQUAL 

0A3H 

t 

0005 

0000 

INTERP 

EQUAL 

00001 1111 OOOOOOOB 

;  /*  ENABLE  INTERRUPT  */ 

0006 

0000 

SRI  61 

EQUAL 

00001011 00000001 B 

;  /*  16-BIT  TRANSFER  */ 

0007 

0000 

SR8I 

EQUAL 

00001  1  1 1 00000001 B 

■  « 

0008 

0000 

SRI  60 

EQUAL 

00001 01 100000010B 

• 

9 

0009 

0000 

SR80 

EQUAL 

00001 1 1 1 OOOOOOIOB 

• 

f 

0010 

0000 

RPLTU 

EQUAL 

0B2H 

• 

» 

0011 

0000 

ZERO 

EQUAL 

OOOOH 

ft 

9 

0012 

0000 

DRINI 

EQUAL 

0100H 

;  /*  TOP  OF  A-TO-LINEAR  TABLE  */ 

0013 

0000 

RMSMIN 

EQUAL 

080 

;  /*  RMSMIN  */ 

0014 

0000 

TRP 

EQUAL 

079H 

;  /*  T-TRANSMITTER  POINTER+BASE  */ 

0015 

0000 

RRP 

EQUAL 

0C9H 

/*  T -RECEIVER  POINTER+BASE  */ 

0016 

0000 

RPTH 

EQUAL 

OFDH 

• 

f 

0017 

0000 

RP2 

EQUAL 

0C8H 

■ 

f 

0018 

0000 

RPPRE 

EQUAL 

OBDH 

• 

r 

0019 

0000 

TABLE 

EQUAL 

0E7H 

• 

t 

0020 

0000 

RPE 

EQUAL 

0F6H 

• 

t 

0021 

0000 

RFQS 

EQUAL 

0D7H 

t 

0022 

0000 

ZEROC 

EQUAL 

0E008H 

i 

0023 

0000 

DPQ1 

EQUAL 

7FH 

» 

0024 

0000 

DP02 

EQUAL 

71H 

9 

0025 

0000 

DPQ3 

EQUAL 

2FH 

• 

f 

0026 

0000 

START: 

LDI 

?DP,ZERO 

;  /■■>■  DP=0  */ 

0027 

0001 

LDI 

?SR,SR80 

• 

» 

0028 

0002 

LDI 

8S0M,0FFFFH 

9 

0029 

0003 

LDI 

BA, ZERO 

;  /*  a=o  */ 

0030 

0004 

LOOP: 

OP 

MOV  BMEM, A 

/*  HEN(0X)=0  */ 

0030 

0004 

Ml 

• 

> 

0031 

0005 

OP 

MOV  0HEM,A 

0031 

0005 

M3 

;  /*  NEN(DP=1X>=0  */ 

0032 

0006 

OP 

MOV  BMEM, A 

/*  MEM(2X)=0  */ 

0032 

0006 

Ml 

« 

1 

0033 

0007 

OP 

MOV  BMEM, A 

/*  HEH(DP*3X)=0  */ 

0033 

0007 

M7 

• 

• 

84 
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( 

TDHS  It  4 

) 

STNO 

LOG. 

SOURCE 

STATEMENT 

0034 

0008 

OP 

MOV  0MEM,A 

/* 

MEM(4X)=0 

*/ 

0034 

0008 

Ml 

9 

0035 

0009 

OP 

MOV  0MEM,A 

/* 

MEM (5X ) —0 

*/ 

0035 

0009 

M3 

9 

0036 

OOOA 

OP 

MOV  0McM,A 

/* 

MEH(6X)=0 

*/ 

0036 

OOOA 

Ml 

• 

9 

0037 

OOOB 

OP 

MOV  BMEM,A 

/* 

MEM(7X)-0 

*/ 

0037 

OOOB 

M7 

9 

0038 

OOOC 

JDPLF 

CONT 

• 

9 

0039 

OOOD 

OP 

DPINC 

■ 

9 

0040 

OOOE 

JMP 

LOOP 

f 

0041 

OOOF 

CONT: 

LDI 

BDP,42H 

9 

0042 

0010 

LI)  I 

0MEMfRHSMIN 

9 

0043 

0011 

LDI 

BDP,4DH 

9 

0044 

0012 

LDI 

BMEMFRMSMIN 

9 

« 

0045 

0013 

LDI 

8DPf52H 

9 

0046 

0014 

LDI 

BMEHf7FFFH 

■ 

9 

0047 

0015 

LDI 

BDP,5DH 

• 

9 

0048 

0016 

LDI 

0MEM,7FFFH 

• 

9 

0049 

0017 

LDI 

0DPfO71H 

• 

9 

0050 

0018 

LDI 

BHEMfZEROC 

• 

9 

0051 

0019 

LDI 

0DP,7FH 

9 

0052 

001 A 

LDI 

BMEM, ZEROC 

• 

9 

0053 

001 B 

LDI 

8DP,00H 

• 

9 

0054 

001C 

LDI 

BNEHf0FFFFH 

• 

9 

0055 

00 1 D 

LDI 

BBP, 21H 

• 

9 

0056 

001 E 

LDI 

8MEH,0FFFFH 

• 

9 

0057 

001  F 

LDI 

BDP, 41H 

• 

9 

0058 

0020 

OP 

MOV  BDR,MEH 

0058 

0020 

DPDEC 

0058 

0020 

N6 

9 

0059 

0021 

CALL 

DUMY 

9 

0060 

0022 

OP 

HOV  BDRjMEM 

0060 

0022 

DPINC 

0060 

0022 

HI 

• 

9 

0061 

0023 

CALL 

DUMY 

9 

0062 

0024 

OP 

HOV  8DRFMEM 

0062 

0024 

DPDEC 

0062 

0024 

M2 

9 

0063 

0025 

CALL 

DUMY 

• 

9 

0064 

0026 

OP 

MOV  BDRFMEH 

0064 

0026 

DPINC 

0064 

0026 

M6 

* 

9 

0065 

0027 

CALL 

DUMY 

• 

9 

0066 

0028 

OP 

MOV  BDRfNEH 
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( 

TONS  »  4 

) 

STNO 

LOC. 

SOURCE 

STATEMENT 

0066 

0028 

DPDEC 

■ 

9 

0067 

0029 

OP 

DPDEC 

0067 

002? 

M5 

• 

9 

0068 

002A 

CALL 

DUHY 

m 

t 

006? 

002B 

OP 

MOV 

BDRjNEM 

0069 

002B 

HI 

• 

9 

0070 

002C 

CALL 

DUMY 

% 

• 

» 

0071 

002D 

LDI 

•SR.SR160 

9 

0072 

002E 

OP 

NOV 

6DR,MEN 

• 

9 

0073 

002F 

UAIT2: 

CALL 

DUMY 

• 

9 

0074 

0030 

CALL 

DUMY 

• 

9 

0075 

0031 

UAIT: 

LDI 

BSR.INTERP 

• 

9 

0076 

0032 

HAITI : 

JHP 

UAIT1 

■ 

9 

0077 

0033 

DUHY: 

OP 

NOP 

9 

0078 

0034 

OP 

NOP 

9 

• 

007? 

0035 

OP 

NOP 

9 

0080 

0036 

OP 

NOP 

■ 

9 

0081 

0037 

OP 

NOP 

• 

9 

0082 

0038 

OP 

NOP 

0082 

0038 

RET 

■ 

9 

0083 

0039 

LTU: 

LDI 

BTR,ZERO 

• 

9 

0084 

003A 

LDI 

BRP,RPLTU 

• 

9 

0085 

003B 

OP 

MOV 

BNON,B 

0085 

003B 

XOR 

ACCB , IDB 

• 

9 

0086 

003C 

JNSAO 

SPOS 

• 

9 

0087 

003D 

OP 

SUB 

ACCB, IDB 

0087 

003D 

MOV 

6N0N , A 

V 

9 

0088 

003E 

OP 

MOV 

BA,B 

0088 

003E 

XOR 

ACCB, IDB 

■ 

9 

0089 

003F 

LDI 

8TR,0080H 

m 

9 

0090 

0040 

SPOS: 

LDI 

68,-6 

9 

0091 

0041 

OP 

MOV  6K.A 

■ 

9 

0092 

0042 

OP 

SUB 

ACCA,IDB 

0092 

0042 

NOV 

BNON,RQ 

0092 

0042 

RPDEC 

• 

9 

0093 

0043 

OP 

NOV 

6DR,NEN 

/* 

S(N)/C"R(N)3 

*/ 

0093 

0043 

Ml 

• 

9 

0094 

0044 

JSAO 

C7 

• 

9 

0095 

0045 

LDI 

«A,007FK 

• 

9 

0096 

0046 

OP 

ADD 

ACC A, IDB 

0096 

0046 

MOV 

BNQN, TR 

• 

9 

/* 

ADD  SION  BIT 

*/ 

0097 

0047 

JHP 

BIT 

• 

9 

0098 

0048 

C7: 

OP 

MOV 

BA,K 

• 

9 

009? 

004? 

OP 

SUB 

ACCA,IDB 

/* 

FIND  CORD  •/ 

009? 

004? 

MOV 

6N0N.R0 

86 
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TDHS  «  4 


STNO  LOC.  SOURCE 

STATEMENT 

0099  0049 

RPDEC 

0100  004A 

JSAO 

C6 

0101  004B 

OP 

ADD 

ACCB,IDB 

0101  004B 

MOV 

BNON.RP 

0102  004C 

OP 

XCHS 

ACCA 

0102  004C 

MOV 

BRP'B 

0103  004D 

OP 

ADD 

'ACCA, I OB 

0103  004D 

NOV 

0NON,RO 

0104  004E 

OP 

ADD 

ACCA.IDB 

0104  004E 

MOV 

ONONJR 

0105  004F 

JHP 

BIT 

0106  0050  C6: 

OP 

MOV 

BA,K 

0107  0051 

OP 

SUB 

ACCA.IDB 

0107  0051 

MOV 

BNON.RO 

0107  0051 

RPDEC 

0108  0052 

JSAO 

C5 

0109  0053 

OP 

SHL1 

ACCA 

0110  0054 

OP 

ADD 

ACCB,IDB 

0110  0054 

MOV 

ONON'RP 

0111  0055 

OP 

XCH6 

ACCA 

0111  0055 

MOV 

BRP,B 

0112  0056 

OP 

ADD 

ACCA.IDB 

0112  0056 

MOV 

0NON.RO 

0113  0057 

OP 

ADD 

ACCA.IDB 

0113  0057 

MOV 

8NQN.TR 

0114  0058 

JMP 

BIT 

0115  0059  C5: 

OP 

MOV 

BA.K 

0116  005A 

OP 

SUB 

ACCA.IDB 

0116  005A 

MOV 

BNON.RO 

0116  005A 

RPDEC 

0117  005B 

JSAO 

C4 

0118  005C 

OP 

SHL2 

ACCA 

0119  005D 

OP 

ADD 

ACCB.IDB 

0119  005D 

MOV 

BNON.RP 

0120  005E 

OP 

XCHG 

ACCA 

0120  005E 

NOV 

BRP.B 

0121  005F 

OP 

ADD 

ACCA.IDB 

0121  005F 

MOV 

BNON.RO 

0122  0060 

OP 

ADD 

ACCA.IDB 

0122  0060 

NOV 

BNON.TR 

0123  0061 

JHP 

BIT 

0124  0062  C4s 

OP 

NOV 

BA,K 

0125  0063 

OP 

SUB 

ACCA.IDB 

0125  0063 

MOV 

BNON.RO 

0125  0063 

RPDEC 

9 

9 

J #  STEP  BITS  */ 

9 

;  J*  ADD  CORD  */ 

;  /*  ADD  SIGN  BIT  */ 

;  /*  JHP  TO  INVERT  BIT  */ 

/•  FIND  CORD  */ 


/*  STEP  BITS  */ 

/*  ADD  CORD  */ 

/*  ADD  SIGN  BIT  */ 

/*  JhP  TO  INVERT  BIT  */ 

/*  FIND  CORD  */ 


/=»  STEP  BITS  */ 

/*  ADD  CORD  =*/ 

/*  ADD  SI6N  BIT  */ 

/*  JNP  TO  INVERT  BIT  */ 

/*  FIND  CORD  */ 


1 
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STNO  LOC.  SOURCE  STATEMENT 


0126 

0064 

JSAO 

C3 

» 

0127 

0065 

OP 

SHL1 

ACCA 

• 

9 

0128 

0066 

OP 

SHL2 

ACCA 

9 

0129 

0067 

OP 

ADD 

ACCB,IDB 

0129 

0067 

MOV 

<?NON,RP 

• 

9 

0130 

0068 

OP 

XCHG 

ACCA 

/* 

STEP  BITS  */ 

0130 

0068 

MOV 

8RP,B 

t 

0131 

0069 

OP 

ADD 

ACCA, IDB 

0131 

0069 

NOV 

GNON.RQ 

;  /* 

ADD  CORD  */ 

0132 

006A 

OP 

ADD 

ACCA, IDB 

0132 

006A 

MOV 

8N0N,7R 

;  /* 

ADD  SI6N  BIT  */ 

0133 

006B 

JMP 

BIT 

;  /* 

JMP  TO  INVERT  BIT 

*/ 

0134 

006C 

C3: 

OP 

MOV 

8A,K 

• 

9 

0135 

006D 

OP 

SUB 

ACCA, IDB 

/* 

FIND  CORD  •/ 

0135 

006D 

MOV 

8N0N,R0 

0 

0135 

006D 

RPDEC 

• 

9 

0136 

006E 

JSAO 

C2 

• 

9 

0137 

006F 

OP 

SHL4 

ACCA 

• 

9 

0138 

0070 

OP 

ADD 

ACCB,1DB 

0138 

0070 

MOV 

PNON, RP 

• 

9 

0139 

0071 

OP 

XCHG 

ACCA 

/* 

STEP  BITS  */ 

0139 

0071 

MOV 

m,  B 

t 

9 

0140 

0072 

OP 

ADD 

ACCA, IDB 

0140 

0072 

MOV 

GNON,RO 

;  /=» 

ADD  CORD  */ 

0141 

0073 

OP 

ADD 

ACCA, IDB 

0141 

0073 

MOV 

GNON,TR 

;  7» 

ADD  SIGN  BIT  */ 

0142 

0074 

JMP 

BIT 

;  /* 

JMP  TO  INVERT  BIT 

*/ 

0143 

0075 

C2: 

OP 

MOV 

8A,K 

• 

9 

0144 

0076 

OP 

SUB 

ACCA, IDB 

/■* 

FIND  CORD  */ 

0144 

0076 

MOV 

8N0N,R0 

0144 

0076 

RPDEC 

• 

9 

0145 

0077 

JSAO 

Cl 

• 

9 

0146 

0078 

OP 

SHR1 

ACCA 

• 

9 

0147 

0079 

OP 

SHR1 

ACCA 

• 

9 

0148 

007A 

OP 

ADD 

ACCB,IDB 

0148 

007A 

MOV 

(?NON,RP 

• 

9 

0149 

007B 

OP 

SHR1 

ACCA 

/* 

STEP  BITS  */ 

0149 

007B 

MOV 

8RP,B 

• 

9 

0150 

007C 

OP 

ADD 

ACCA, IDB 

0150 

007C 

NOV 

8N0N,R0 

;  /* 

ADD  CORD  */ 

0151 

007D 

OP 

ADD 

ACCA, IDB 

0151 

007D 

MOV 

GNON,TR 

;  /*  ADD  SIGN  BIT  */ 

0152 

007E 

JMP 

BIT 

;  /* 

JMP  TO  INVERT  BIT 

*/ 

0153 

007F 

Cl: 

OP 

NOV 

BA,K 

• 

9 

0154 

0080 

OP 

SUB 

ACCA, IDB  . 

/♦ 

FIND  CORIL*/ 

•t*  UPD7720  ASSEMBLY  LIST  **  (7/5/83 


(  TDHS  N  4 

STNO 

LOC. 

SOURCE  STATEMENT 

0154 

0080 

MOV 

0154 

0080 

RPDEC 

0155 

0081 

JSAO 

CO 

0156 

0082 

OP 

SHR1 

0157 

0083 

OP 

SHR1 

0158 

0084 

OP 

ADD 

0158 

0084 

MOV 

0159 

0085 

OP 

MOV 

0160 

0086 

OP 

ADD 

0160 

0086 

MOV 

0161 

0087 

OP 

ADD 

0161 

0087 

MOV 

0162 

0088 

JMP 

BIT 

0163 

0089 

CO:  OP 

MOV 

0164 

008A 

OP 

SHR1 

0165 

0088 

OP 

ADD 

0165 

008B 

MOV 

0166 

008C 

BIT:  LDI 

BBrOOFFH 

0167 

008D 

OP 

XOR 

0167 

0088 

HOV 

0168 

008E 

OP 

XCH6 

0168 

008E 

RET 

0169 

008F 

CCLIP:  LDI 

eB, DRABS 

0170 

0090 

OP 

OR 

0170 

0090 

HOV 

0171 

0091 

OP 

XOR 

0171 

0091 

MOV 

0172 

0092 

OP 

XCHG 

0172 

0092 

MOV 

0173 

0093 

JNSAO 

T1NEG 

0174 

0094 

OP 

INC 

0175 

0095 

T1NEG:  LDI 

8RP,RPINI 

0176 

0096 

OP 

XOR 

0176 

0096 

MOV 

0177 

0097 

OP 

MOV 

0177 

0097 

ADD 

0177 

0097 

RPDEC 

0177 

0097 

Ml 

0178 

0098 

OP 

SUB 

0178 

0098 

MOV 

0179 

0099 

OP 

ADD 

0180 

009A 

OP 

MOV 

0180 

009A 

Ml 

0 1 8 1 

009B 

OP 

SUB 

0182 

009C 

JNSAO 

T100 

)  MODULE  TDHSI4.SRC  PAGE  0007 
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0NON.RO 

• 

f 

ACCA 

• 

r 

• 

f 

ACCA 

• 

f 

ACCB, IDB 

0NON,RP 

• 

9 

0RP,B 

• 

9 

ACCA, IDB 

0NON , RQ 

• 

t 

/■* 

ADD  CORD  */ 

ACCA, IDB 

ONON.TR 

• 

9 

/* 

ADD  SIGN  BIT  */ 

• 

9 

/* 

JMP  TO  INVERT  BIT  */ 

8A,K 

• 

9 

ACCA 

■ 

9 

« 

ACCA, IDB 

0NON.TR 

• 

9 

• 

/* 

ADD  SIGN  BIT  */ 

ACCB, IDB 

» 

0NON , A 

• 

9 

/* 

GET  NON-INVERT  BITS  */ 

ACCB 

• 

9 

ACCB, IDB 

m 

9 

/* 

ABS.  VALUE  OF  SN  */ 

eA.SIM 

• 

f 

/* 

INPUT  SN  */ 

ACCB, IDB 

/* 

RESET  ACCB  =»/ 

BRP,B 

• 

F 

/* 

MU-TO-LINEAR  */ 

ACCA 

/-•» 

CHECK  SIGN  OF  SN  */ 

8HEM,R0 

• 

9 

/■* 

ABS.  VALUE  OF  SN  */ 

9 

/* 

JUMP  IF  SN  <  0  */ 

ACCB 

9 

9 

9 

ACCA, IDB 

f 

6N0N.A 

■ 

9 

BKLR.MEM 

/* 

tSNI*( 1-ALFA1 )  */ 

ACCA, RAH 

/* 

A=CSND  */ 

ACCA.H 

9 

t 

/* 

A=tSN]-CSN3*(1-ALFA1 ) 

BKLR.NEN 

9 

r 

/* 

H=<E>*( 1-ALFA2)  */ 

ACCA.N 

9 

/* 

NEU  <E>  */ 

BNEH, A 

• 

/* 

STORE  NEU  <E>  */ 

ACC A, RAN 

F 

« 

F 

/* 

CHECK  <E>-ESN3  */ 

• 

t 

/* 

JUMP  IF  >«  0  */ 

89 


*♦  UPD7720  ASSEMBLY  LIST  *♦  (7/5/83  )  MODULE  TDHSI4.SRC  PAGE  0008 

<  TDHS  8  4  ) 


STNO  LOC. 

SOURCE 

STATEMENT 

0183  009D 

T101 : 

OP 

INC 

ACCB 

0183  009D 

RET 

• 

0184  009E 

TIOOs 

OP 

XOR 

ACCB, IDB 

9 

0184  009E 

MOV 

0MON,B 

0184  009E 

RET 

a 

0185  009F 

CONS: 

OP 

ADD 

ACCB,H 

9 

0185  009F 

MOO 

BKLHjMEN 

/*  B(2)/2*~E(N-1 )/2  */ 

0185  009F 

Ml 

• 

0186  OOAO 

OP 

ADD 

ACCB, H 

9 

0166  OOAO 

MOV 

OKLN'HEM 

;  /*  B < 1 )/2*~E(N)/2  */ 

0187  00A1 

LDI 

0DP,5OH 

• 

0188  00A2 

OP 

ADD 

ACCB,M 

9 

0188  00A2 

MOV 

8NEM , DR 

;  /■*  “R<n+i  >  ■*/ 

0189  00A3 

LDI 

8DP,0DH 

• 

0190  00A4 

OP 

MOV 

0NON , A 

9 

4 

0190  00A4 

XOR 

ACCA, IDB 

■ 

0191  00A5 

OP 

SHL1 

ACCB 

• 

0192  00A6 

OP 

MOV 

0MEM ,  B 

/*  STORE  ~P(N+1 )/2  */ 

0192  00A6 

XOR 

ACCB, IDB 

0192  00A6 

M3 

• 

0193  00A7 

/* 

LDI 

6DP,5FH 

;  TDHS  LOOP  BACK  */ 

0193  00A7 

OP 

NOP 

■ 

0194  00A8 

OP 

ADD 

ACCA, RAM 

9 

0194  00A8 

MOV 

8TR,NEN 

0194  00A8 

BPCLR 

0194  00A8 

M3 

• 

0195  00A9 

LDI 

8DP,0OH 

;  /*  TDHS  LOOP  BACK  */ 

0196  OOAA 

JSAO 

RNEG 

■ 

0197  OOAB 

OP 

INC 

ACCB 

9 

0197  OOAB 

DP  DEC 

• 

0198  OOAC 

OP 

MOV 

0HEM,A 

9 

0198  OOAC 

XOR 

ACCA, IDB 

m 

m 

0199  OOAD 

JMP 

RCLIP 

¥ 

• 

0200  OOAE 

RNE6: 

OP 

SUB 

ACCB, IDB 

9 

0200  OOAE 

MOV 

tNQN,A 

0200  OOAE 

DPDEC 

• 

0201  OOAF 

OP 

NOV 

0MEM,B 

9 

0201  OOAF 

XOR 

ACCB, IDB 

a 

a 

0202  OOBO 

OP 

NOV 

0A,B 

f 

a 

0203  00B1 

RCLIP: 

LDI 

8RP,RPINI 

9 

a 

p 

0204  00B2 

OP 

MOV 

0KLR,MEM 

f*  ERM3*(1-ALFA1)  */ 

0204  00B2 

ADD 

ACCA, RAN 

/=»  CRN3  */ 

0204  00B2 

HI 

0204  00B2 

RPDEC 

a 

f 

0205  00B3 

OP 

SUB 

ACCA.H 

l *  A*tRN3'-CRN3*(1-ALFAl 
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)  MODULE  TDHS14.SRC  PAGE  0009 


(  TDHS  *  4 


STNO  LOC.  SOURCE  STATEMENT 


0205  OOB3 
0205  00B3 
0205  00B3 
0206  00B4 
0206  00B4 
0206  00B4 
0207  00B5 
0208  00B6 
0208  00B6 
020?  00B7 
0209  00B7 
02(0  00B8 
0211  OOB?  ROOs 
0211  OOB? 

0212  OOBA 

0212  OOBA 

0213  OOBB 

0213  OOBB 

0213  OOBB 

0214  OOBC 

0215  OOBB  ROIs 

0215  OOBD 

0215  OOBD 

0216  OOBE 

0217  OOBF 

0217  OOBF 

0217  OOBF 

0218  OOCO  CLIPT2 

0219  00C1 

0220  00C2 

0220  00C2 

0220  00C2 

0221  00C3 

0222  00C4 

0223  00C5 

0223  00C5 

0224  00C6 

0224  OOC6 

0225  00C7 

0225  00C7 

0225  00C7 

0226  00C8  TDHEs 

0227  OOC? 

0227  OOC? 

0228  OOCA 


NOV 

DPCLR 

M7 

0KLR»MEN 

OP 

MOV 

DPDEC 

M7 

BNEM.DR 

OP 

ADD 

ACCA'M 

OP 

MOV 

HI 

BMEH.A 

OP 

SUB 

M3 

ACC A, RAN 

JSAO 

R01 

OP 

MOV 

HI 

0M£N,TR 

OP 

MOV 

8N0N,B 

XOR 

ACCB, IBB 

OP 

MOV 

DPCLR 

MS 

0NEH,B 

JMP 

CLIPT2 

OP 

MOV 

0NEN,TR 

SHL2 

Ml 

ACCB 

OP 

INC 

ACCB 

QP 

MOV 

DPCLR 

MS 

0NEN,B 

;  JNSIAK 

CLIPT2 

LDI 

8SR.SR8I 

OP 

MOV 

M7 

DPINC 

0HEH?DR 

CALL 

CCLIP 

OP 

DPDEC 

OP 

MOV 

Ml 

0SOM,NEH 

OP 

MOV 

M3 

BMENfSIM 

OP 

MOV 

DPINC 

M6 

0MEN,B 

LDI 

B8.00FFH 

OP 

MOV 

0NON,DRNF 

AMD 

ACCB,1DB 

LDI 

BSR.SR8D 

/*  M=<E>*(1-ALFA2>  */ 

/♦  -R(N-T)  •»/ 

•  / *  NEU  <E>  */ 

/*  STORE  NEU  <E>  */ 

/*  CHECK  <E>-CSNJ  */ 

m 

9 

* 

9 

;  /*  STORE  R(N)  */ 

* 

9 

;  /*  STORE  CR(N)3  */ 
/*  STORE  R(N)  */ 

# 

9 

t 

;’/*  WAIT  */ 

/t  ~R(N-T+1 )  */ 

9 

9 

/*  OUT  "S(N-1 )  */ 

/*  S(N+1 )  */ 

/»  CS(N*1>3  */ 

9 

9 

;  /*  T  */ 


91 


*•  UPD7720  ASSEMBLY  LIST  **  <7/5/83 


(  TDHS  N  4 

STNO  LOC. 

SOURCE  STATEMENT 

0229  OOCB 

OP 

MOV 

0229  OOCB 

DPDEC 

0229  OOCB 

M7 

0230  OOCC 

OP 

XCHG 

0230  OOCC 

HOU 

0231  OOCB 

JSBO 

RNDELT 

0232  OOCE 

RPDELTs  LDI 

BB.RRP 

0233  OOCF 

OP 

SUB 

0233  OOCF 

NOV 

0233  OOCF 

M7 

0234  OODO 

OP 

MOV 

0235  00D1 

LDI 

BA, ZERO 

0236  00D2 

OP 

MOV 

0236  00D2 

ADD 

0236  00D2 

M6 

0237  00D3 

OP 

SHR1 

0238  00D4 

OP 

MOV 

0238  00D4 

SHR1 

0238  00D4 

DPDEC 

0238  OOD4 

M6 

0239  0005 

OP 

SHR1 

0240  00D6 

OP 

MOV 

0241  00D7 

LDI 

BB, -32768 

0242  00D8 

OP 

SUB 

0242  00D8 

DPINC 

0242  00D8 

M7 

0243  00D9 

OP 

MOV 

0243  00D9 

DPINC 

0244  OODA 

JMP 

CTDHE 

0245  OODB 

RNDELT :  OP 

NOV 

0245  OODB 

DPDEC 

0245  OODB 

M7 

0246  OODC 

OP 

SUB 

0246  OODC 

NOV 

0246  OODC 

DPINC 

0246  OODC 

H7 

0247  OODD 

OP 

NOV 

0247  OODD 

HI 

0248  OODE 

OP 

MOV 

0248  OODE 

M6 

0249  OODF 

OP 

MOV 

0249  OODF 

M2 

0250  OOEO 

OP 

SUB 

0250  OOEO 

MOV 

0250  OOEO 

DPINC 

>  MODULE  TDHSI4.SRC  PAGE  0010 


) 

GDR.HEM 

/*  CS(N)3  */ 

ACCB 

• 

9 

GTR,B 

• 

f 

;  /*  JUMP  IF  NO  CHANGE 
• 

ACCB,IDB 

9 

GNON,TR 

/*  T-POINTER  */ 

• 

BRP,B 

9 

• 

9 

BB,RQ 

ACC A, RAM 

9 

ACCB 

;  /*  "S(N)s~R(K)  */ 

9 

GDR,NEM 

ACCB 

/»  CS(N+1 )]  */ 

ACCB 

GNEH,B 

■ 

9 

• 

9 

• 

9 

ACCB .RAM 

9 

BMEM,B 

t 

9 

/*  STORE  BETA(IM)  */ 

• 

9 

GA,MEM 

■ 

/*  BETA(I)  */ 

ACCA,RAM 

GL,A 

* 

/*  BETA(I+1 )  */ 

GMEM, A 

• 

9 

/*  STORE  BETA! 1+1)  *t 

• 

BDR.MEH 

f*  CS(N+1 )3  */ 

■ 

IB, MEM 

/*  GET  "R(K)  */ 

• 

ACCB, RAN 
IA,NEN 

/•  •'R(K)-'R(K-T)  */ 

/*  'R(K-T)  */ 
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**  UPD7720 

ASSEMBLY  LIST 

**  (7/5/83 

)  MODULE 

TDHSI4. 

SRC  PAGE  0011 

( 

TDHS  11  4 

) 

STNO 

LOC. 

SOURCE 

STATEMENT 

0250 

OOEO 

H5 

* 

9 

0251 

00E1 

OP 

MOV 

0K,B 

• 

9 

/* 

"R(K)-"R(K-T)  */ 

0252 

00E2 

OP 

ADD 

ACCA,H 

■ 

f 

/* 

~S(N)  */ 

0253 

00E3 

CTDHE: 

CALL 

LTU 

• 

9 

0254 

00E4 

OP 

MOV 

*MEN,B 

/* 

*S(N)  */ 

0254 

00E4 

DPDEC 

0254 

00E4 

M3 

• 

9 

0255 

00E5 

OP 

MOV 

8DR,HEH 

/* 

S(N-H)  */ 

0255 

OOES 

M2 

• 

9 

0256 

00E6 

OP 

NOV 

0A,HEM 

/* 

BETA(I)  */ 

0256 

00E6 

DPDEC 

0256 

00E6 

M7 

• 

9 

0257 

00E7 

OP 

SUB 

ACCA, RAM 

/* 

BETA(I*1 )  */ 

0257 

00E7 

NOV 

PL,  A 

0257 

00E7 

DPINC 

« 

0257 

00E7 

H7 

■ 

9 

0258 

00E8 

OP 

MOV 

OMEN, A 

/* 

STORE  BETAd+1)  */ 

0258 

00E8 

M6 

• 

9 

0259 

OOE9 

OP 

MOV 

0B,MEM 

/* 

GET  ~R<K+1>  */ 

0259 

OOE9 

M2 

• 

9 

0260 

OOEA 

OP 

SUB 

ACCB,RAN 

/* 

“RIK+I )-~R(K-T+1 ) 

0260 

OOEA 

MOV 

PA, MEM 

/* 

"R(K-Tfl)  */ 

0260 

OOEA 

DPINC 

• 

9 

0261 

OOEB 

OP 

MOV 

0K,B 

/* 

"R(K+1 )-~R(K-T+1 ) 

0261 

OOEB 

XOR 

ACCB, IDB 

• 

9 

0262 

OOEC 

OP 

ADD 

ACCA,M 

■ 

9 

/* 

~S(N)  */ 

0263 

OOEB 

LDI 

tB,ZEROC 

m 

9 

/* 

ZERO  CODE  VORD  */ 

0264 

OOEE 

OP 

SUB 

ACCB, RAH 

• 

9 

0265 

OOEF 

JNZB 

OUTC 

• 

9 

0266 

OOFO 

LDI 

tBtOOOFH 

• 

9 

0267 

00F1 

LDI 

IDP.DPQI 

• 

9 

0268 

00F2 

OP 

XOR 

ACCB, RAM 

• 

9 

0269 

00F3 

OP 

NOV 

IMEM,B 

• 

9 

0270 

00F4 

LDI 

BDP,DP02 

• 

9 

0271 

OOFS 

OP 

MOV 

PMEM,B 

• 

9 

0272 

OOF6 

OUTC: 

OP 

MOV 

PDR.MEM 

9 

/♦ 

QUO  */ 

0273 

00F7 

LDI 

tDP,DPQ3 

• 

9 

0274 

00F8 

CALL 

LTU 

• 

9 

0275 

00F9 

LDI 

»SR,SR160 

• 

9 

0276 

OOFA 

OP 

MOV 

0DR.MEM 

/* 

"RtN)  */ 

0276 

OOFA 

DPINC 

0276 

OOFA 

N3 

• 

9 

0277 

OOFB 

OP 

NOV 

IMEN,B 

• 

9 

t* 

"S(N+1 )  */ 

0278 

OOFC 

JNP 

UAIT2 

• 

9 

0279 

OOFD 

0R6 

100H 

■ 

• 
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=»*  UPD7720 

ASSEMBLY  LIST 

*»  (7/5/83 

)  MODULE 

TDHSI4. 

SRC 

PAGE  0012 

( 

TDHS  I  4 

> 

STNO  LOC. 

SOURCE 

STATEMENT 

0280  0100 

BEGIN: 

LDI 

8DP.01H 

• 

f 

0281  0101 

LDI 

8SR.SR8I 

■ 

9 

0282  0102 

OP 

MOV 

BNON,DR 

m 

9 

/* 

DUMNY  */ 

0283  0103 

CALL 

CCLIP 

• 

9 

0284  0104 

TDHC: 

LDI 

CAt  DR  INI 

• 

9 

0285  0105 

OP 

MOV 

8N0N,DR 

0285  0105 

OR 

ACCA.IDB 

/* 

INPUT  S(I)  */ 

0285  0105 

M2 

• 

9 

0286  0106 

OP 

MOV 

BSON,NEN 

/* 

OUTPUT  ”S(N)  */ 

0286  0106 

Ml 

■ 

9 

0287  0107 

OP 

MOV 

8NEN,SIN 

/* 

IN  S(I)  »/ 

0287  0107 

M7 

* 

9 

0288  0108 

OP 

MOV 

8MEN,B 

/* 

CS(N)]  CLIP  */ 

0288  0108 

Ml 

• 

9 

0289  0109 

OP 

NOP 

• 

9 

• 

0290  010A 

OP 

MOV 

8RP,  A 

• 

9 

0291  0108 

LDI 

88,00FFH 

• 

9 

0292  010C 

OP 

NOV 

8 NON, DR 

0292  01 OC 

AND 

ACCB,IDB 

• 

9 

/* 

T  «/ 

0293  0108 

OP 

XCHG 

ACCB 

0293  0100 

MOV 

8TR,B 

• 

9 

0294  010E 

JSBO 

TNDELT 

• 

9 

/* 

JUNP  IF  NO  CHANGE  */ 

0295  010F 

TPDELT : 

LDI 

8A,TRP 

• 

9 

0296  0110 

OP 

SUB 

ACCA,IDB 

0296  0110 

MOV 

8N0N,TR 

• 

9 

/■* 

T-POINTER  */ 

0297  0111 

OP 

MOV 

8B,R0 

■ 

9 

/* 

R(l)  =*/ 

0298  0112 

OP 

MOV 

RRP,  A 

0298  0112 

M3 

• 

9 

0299  0113 

OP 

MOV 

8A,RQ 

■ 

t 

0300  0114 

OP 

SHR1 

ACCA 

• 

9 

0301  0115 

OP 

SHR1 

ACCA 

• 

9 

0302  0116 

OP 

MOV 

8N0N,DR 

0302  0116 

SHR1 

ACCA 

• 

9 

0303  0117 

OP 

MOV 

0NEN,A 

• 

9 

0304  0118 

LDI 

BA, -32768 

• 

9 

0305  0119 

OP 

SUB 

ACCA, RAN 

0305  0119 

M3 

• 

9 

0306  01 1 A 

OP 

MOV 

BMEH,A 

/* 

STORE  BET  A  <  I  ♦  1 )  <*/ 

0306  01 1 A 

M5 

0306  011  A 

DPINC 

• 

9 

0307  01  IB 

JMP 

ARC 

• 

9 

0308  011C 

TNDELT 

OP 

NOV 

BA,NEN 

/* 

BETA(I)  */ 

0308  011C 

M3 

• 

9 

0309  01  ID 

OP 

SUB 

ACCA, RAN 

/» 

BETA(Itl)  */ 

0309  01  ID 

MOV 

BL.A 

r 


♦*  UPD7720 

ASSEMBLY  LIST  *« 

(7/5783 

>’ MODULE 

TDHS I 4. SRC  PAGE  0013 

(  TDHS  *  4 

) 

STHO  LOC. 

SOURCE  STATEMENT 

030?  0110 

M3 

■ 

9 

0310  01  IE 

OP 

NOV 

OMEN, A 

/*  STORE  BETAU+1)  */ 

0310  01  IE 

MS 

0310  01  IE 

DPINC 

• 

9 

0311  01  IF 

LDI 

IB.DRINI 

• 

9 

0312  0120 

OP 

MOV 

INON.DR 

0312  0120 

OR 

ACCB, IDB 

;  /*  INPUT  S(I*T)  */ 

0313  0121 

OP 

NOV 

IAfRO 

;  /*  GET  S(I>  */ 

0314  0122 

OP 

NOV 

8RP,B 

;  /*  A-TO-LINEAR  */ 

0313  0123 

OP 

SUB 

ACCA.IDB 

/*  S(I)-S(I*T)  */ 

0313  0123 

NOV 

8B,R0 

;  j*  S(I+T)  */ 

0314  0124 

OP 

NOV 

OK,  A 

;  /*  s<i)-S(i+T>  */ 

0317  0123 

OP 

ABD 

ACCB.N 

;  /*  R(i)  */ 

0318  0126 

ARC:  OP 

SHR1 

ACCB 

• 

» 

0319  0127 

OP 

SHR1 

ACCB 

f  4 

0320  0128 

LDI 

IDP,5FH 

;  /*  TDHS  LOOP  BACK  */ 

0321  0129 

OP 

NOV 

8HEH,B 

;  /*  TDHS  LOOP  BACK  */ 

0322  012A 

LDI 

eDP,02H 

;  /*  TDHS  LOOP  BACK  «/ 

0323  01 2B 

LDI 

8RP.RPTH 

• 

9 

0324  012C 

/*  QUANTIZER 

*/ 

0324  012C 

0* 

SUB 

ACCB, RAM 

/*  E(N)/2=S(N)/2-'PCN)/2  */ 

0324  012C 

NOV 

8KLH,R0 

/*  <E>*TH1/2  */ 

0324  012C 

DPDEC 

0324  01 2C 

N7 

0324  012C 

RPDEC 

• 

9 

0325  0120 

JSBO 

TENEG 

• 

9 

0326  01 2E 

TEPOS:  LDI 

ITR,-22 

■ 

9 

0327  012F 

JMP 

TQ1 

• 

9 

0328  0130 

TENEG:  OP 

XOR 

ACCB, IDB 

0328  0130 

NOV 

BTR,  B 

• 

9 

0329  0131 

OP 

SUB 

ACCB, IDB 

0329  0131 

NOV 

0NON,TR 

• 

9 

0330  0132 

LDI 

ITR,-15 

• 

9 

0331  0133 

TQ1:  OP 

NOV 

8L,R0 

/*  <E>»TN2/2  */ 

0331  0133 

SUB 

ACCB.H 

0331  0133 

RPDEC 

• 

9 

0332  0134 

JNSBO 

TQ2 

• 

9 

0333  0135 

LDI 

8TR.-15 

• 

9 

0334  0136 

JMP 

TOPI 

■ 

9 

0335  0137 

TQ2:  OP 

NOV 

8L,R0 

/»  <E>*TH3/2  */ 

0335  0137 

SUB 

ACCB,N 

0335  0137 

RPDEC 

• 

9 

0336  0138 

JSBO 

TOPI 

• 

9 

0337  0139 

OP 

NOV 

0L,RO 

/*  <E>*TH4/2  */ 

0337  0139 

SUB 

ACCB.H 
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(  TDHS  •  4 


STNO 

LOC. 

SOURCE 

STATEMENT 

0337 

0139 

RPDEC 

• 

f 

0338 

013A 

JSBO 

TOPI 

• 

9 

0339 

013B 

OP 

NOV 

0L,RO 

/* 

0339 

013B 

SUB 

ACCB'M 

0339 

013B 

RPDEC 

f 

0340 

01 3C 

JSBO 

TOPI 

• 

9 

0341 

01 3D 

OP 

MOV 

01, RO 

/* 

0341 

01 3D 

SUB 

ACCB.M 

0341 

013D 

RPDEC 

• 

9 

0342 

013E 

JSBO 

TOPI 

9 

0343 

013F 

OP 

MOV 

0L,RO 

/■* 

0343 

01 3F 

SUB 

ACCB.M 

0343 

013F 

RPDEC 

• 

9 

0344 

0140 

JSBO 

TOPI 

■ 

9 

0345 

0141 

OP 

SUB 

ACCB.M 

0345 

0141 

RPDEC 

• 

9 

0346 

0142 

JSBO 

TOPI 

• 

9 

0347 

0143 

OP 

RPDEC 

• 

9 

0348 

0144 

/» 

1NVERSE- 

QUANTIZER 

UITH  BIAS  CHECK 

*/ 

0348 

0144 

TOPI  s 

LDI 

IB, -05 

• 

9 

0349 

0145 

OP 

ADD 

ACCB.IDB 

0349 

0145 

MOV 

0NQN.RP 

;  /* 

0350 

0146 

OP 

MOV 

0RP,B 

• 

9 

0351 

0147 

OP 

NOV 

0L,RO 

• 

9 

0352 

0148 

OP 

ADD 

ACCB.IDB 

0352 

0148 

NOV 

6N0N.TR 

• 

9 

0353 

0149 

OP 

NOV 

0RP,B 

• 

9 

0354 

014A 

OP 

MOV 

0A,RO 

• 

9 

0355 

014B 

OP 

XCHG 

ACCA 

• 

9 

0356 

014C 

OP 

MOV 

0MEM, A 

0356 

0 1 4C 

XOR 

ACCA, IDB 

0356 

014C 

DPINC 

0356 

01 4C 

N3 

• 

9 

0357 

0140 

LDI 

BB.-16 

• 

9 

0358 

014E 

OP 

ADD 

ACCB.IDB 

0358 

014E 

NOV 

BNON.RP 

• 

9 

0359 

014F 

CALL 

CONN 

• 

9 

0360 

0150 

JMP 

C0N6 

• 

9 

0361 

0151 

COHN: 

OP 

NOV 

0RP,B 

0361 

0151 

XOR 

ACCB.IDB 

» 

9 

0362 

0152 

OP 

ADD 

ACCB.h 

• 

9 

0363 

0153 

OP 

SHL1 

ACCB 

0363 

0153 

NOV 

0L,RO 

;  /• 

0364 

0154 

LDI 

8RP.RP2 

• 

9 

0365 

0155 

OP 

SUB 

ACCB.IDB ... 

_ 

/*  <E>=*TH5/2  */ 


/*  <E>*TH6/2  »/ 


/*  <E>*TH7/2  */ 


/*  ADJUST  RP  */ 


J  /*  CALCULATE  "E<N>/8  */ 
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(  TDHS  M  4  ) 


STNO 

LOC. 

SOURCE 

STATEMENT 

0365 

0155 

MOV 

BNQN'RO 

• 

F 

0366 

0156 

JSBO 

TBIAS 

• 

F 

0367 

0157 

OP 

ADD 

ACCB'IDB 

0367 

0157 

MOV 

0NON,RO 

• 

9 

0368 

0158 

TCCCs 

OP 

ADD 

ACCA,H 

0368 

0158 

MOV 

BMEM,B 

/* 

STORE  <E(N*1 )>  */ 

0368 

0158 

RPDEC 

0368 

0158 

DPINC 

0368 

0158 

H4 

m 

f 

0369 

0159 

JSAO 

TEHN 

• 

9 

0370 

01SA 

JZA 

TEHZ 

• 

9 

0371 

015B 

JMP 

TEHP 

m 

9 

0372 

015C 

TBIAS: 

OP 

ADD 

ACCA,N 

0372 

015C 

MOV 

<?NEN,RO 

/* 

STORE  <E(N+1 )>  */ 

0372 

015C 

DPINC 

• 

0372 

015C 

RPDEC 

0372 

015C 

M4 

• 

9 

0373 

015D 

JSAO 

TEHN 

• 

f 

0374 

015E 

JZA 

TEHZ 

• 

» 

0375 

015F 

/♦ 

PREDICTOR 

COEFFICIENTS  UPDATE 

*/ 

0375 

015F 

TEHP: 

OP 

MOV 

BNON.B 

0375 

015F 

XOR 

ACCB,IDB 

• 

f 

0376 

0160 

OP 

SHL1 

ACCA 

• 

9 

0377 

0161 

OP 

ADD 

ACCB,RAN 

/* 

TEST  SIGN  OF  ”E(N-4)/2  */ 

0377 

0161 

MOV 

8KLM,R0 

/* 

(1-BETA);*B(4)/2  */ 

0377 

0161 

RPDEC 

0377 

0161 

Ml 

• 

9 

0378 

0162 

CON: 

JSBO 

TEH4N 

• 

F 

0379 

0163 

TEH4P: 

OP 

MOV 

0TR,A 

/* 

TR="E(N)/4  */ 

0379 

0163 

XOR 

ACCA,IDB 

• 

F 

0380 

0164 

OP 

ADD 

ACC A, RAM 

/■* 

TEST  SIGN  OF  ~E(N-3>/2  »/ 

0380 

0164 

MOV 

8B,R0 

/* 

B=CB/2  */ 

0380 

0164 

M4 

0380 

0164 

RPDEC 

• 

f 

0381 

0165 

OP 

ADD 

ACCB,M 

0381 

0165 

MOV 

GK.MEN 

/■* 

(1-BETA)*B(3)/2  */ 

0381 

0165 

RPDEC 

0381 

0165 

Ml 

i 

0382 

0166 

OP 

MOV 

0MEMfB 

/* 

STORE  B(4)/2  */ 

0382 

0166 

XOR 

ACCB, IDB 

0382 

0166 

N4 

F 

0383 

0167 

JSAO 

TEH3N 

• 

9 

0384 

0168 

TEH3P: 

OP 

MOV 

OMEN, A 

/* 

SHIFT  */ 

0384 

0168 

M2 

• 

F 

0385 

0169 

OP 

ADD 

ACCB.RAM 

/* 

TEST  SIGN  OF  ~E(N-2>  */ 
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(  TDHS  I  4  ) 


STNO 

LOC. 

SOURCE 

STATEMENT 

0383 

0169 

MOV 

(A,RO 

/=» 

B=CB/2  */ 

0385 

0169 

M4 

0383 

0169 

RPDEC 

• 

V 

0386 

016A 

OP 

ABB 

ACCA,N 

0386 

016A 

MOV 

OK, HEN 

/• 

(1-BETA)*B(2)/2  */ 

0386 

016A 

M3 

0386 

016A 

RPBEC 

• 

9 

0387 

016B 

OP 

MOV 

!MEH,A 

/♦ 

STORE  B(3)/2  */ 

0387 

016B 

XOR 

ACCA, IDB 

0387 

016B 

N4 

• 

» 

0388 

016C 

JSBO 

TEH2N 

• 

9 

0389 

016D 

TEH2P: 

OP 

MOV 

GHEH,B 

/• 

SHIFT  */ 

0389 

016D 

M2 

• 

9 

0390 

016E 

OP 

ADD 

ACCA, RAN 

/* 

TEST  SIGN  OF  “E(N-1 )  */ 

0390 

016E 

MOV 

8B,R0 

/» 

B«CB/2  */ 

0390 

016E 

M4 

0390 

016E 

RPDEC 

• 

9 

0391 

016F 

OP 

ADD 

ACCB,N 

0391 

016F 

MOV 

OK,  MEN 

/* 

<l-BETA)*B(1)/2  */ 

0391 

016F 

Ml 

0391 

016F 

ftFKC 

• 

9 

0392 

0170 

OP 

MOV 

OMENjB 

/* 

STORE  B(2)/2  */ 

0392 

0170 

N4 

• 

9 

0393 

0171 

JSAO 

TEH1M 

9 

f 

0394 

0172 

TEH1P: 

OP 

MOV 

0B,TR 

t 

9 

/* 

Bs"E(N)/4  */ 

0395 

0173 

OP 

MOV 

IHEH,A 

/* 

SHIFT  */ 

0395 

0173 

SHU 

ACCB 

0395 

0173 

Ml 

• 

9 

0396 

0174 

OP 

NOV 

INEN,B 

/* 

STORE  'E(N)/2  */ 

0396 

0174 

DPDEC 

0396 

0174 

M3 

• 

9 

0397 

0173 

OP 

ADD 

ACCB, RAN 

/* 

"S(N>/2  */ 

0397 

0175 

MOV 

(A,RO 

/* 

B*CB/2  */ 

0397 

0175 

DPINC 

0397 

0175 

M7 

0397 

0175 

RPDEC 

• 

9 

0398 

0176 

OP 

ADD 

ACCA,H 

0398 

0176 

NOV 

ITR,B 

/* 

TR="S(N>/2  */ 

0398 

0176 

RPDEC 

• 

9 

0399 

0177 

OP 

NOV 

OMEN, A 

/* 

STORE  B(t  >/2  */ 

0399 

0177 

SHR1 

ACCB 

0399 

0177 

DPDEC 

■ 

9 

0400 

0178 

JMP 

TSD 

• 

9 

0401 

0179 

/* 

BRANCHES 

FOR  COEFFICIENTS  UPDATE 

*/ 

0401 

0179 

TEH4N: 

OP 

NOV 

8TR.A 

/* 

TR*'E(N)./.4  */ 

/*  TR*'E(N)./.4  */ 


**  UPD7720  ASSEMBLY  LIST  *•  (7/5/83  )  MODULE  TDHSI4.SRC  PAGE  0017 


(  TDHS  I  4 


) 


STNO 

LOC. 

SOURCE 

STATEMENT 

l 

0401 

0179 

XOR 

ACCA, IDB 

i 

0401 

0179 

RPDEC 

V 

i 

0402 

017A 

OP 

ADD 

ACCA, RAN 

/* 

TEST  SIGN  OF  “E(N-3)/2  */ 

i 

i 

0402 

017A 

MOV 

BB,RO 

/* 

B*CB/2  */ 

l 

| 

0402 

017A 

N4 

! 

1 

0402 

017A 

RPDEC 

• 

9 

i 

0403 

017B 

OP 

ADD 

ACCB'M 

!  I 

0403 

017B 

MOV 

IK, MEM 

/* 

(1-BETA)*B(3)/2  */  i 

0403 

017B 

Ml 

• 

t 

1 

0404 

017C 

OP 

MOV 

GMEN,B 

/* 

STORE  B14I/2  */  1  1 

0404 

017C 

XOR 

ACCB, IDB 

|  | 

0404 

017C 

M4 

• 

1 

l 

0405 

017D 

JNSAO 

TEH3P 

• 

f 

(  t 

• 

0406 

017E 

TEH3N: 

OP 

MOV 

BNEN,A 

/* 

SHIFT  */ 

0406 

017E 

RPDEC 

*  i 

0406 

017E 

M2 

• 

9 

j 

0407 

0I7F 

OP 

ADD 

ACCB, RAM 

/* 

TEST  SIGN  OF  "E(N-2)  */ 

0407 

017F 

MOV 

8A,R0 

/* 

B=CB/2  */ 

0407 

017F 

H4 

0407 

017F 

RPDEC 

• 

f 

0408 

0180 

OP 

ADD 

ACCA,N 

0408 

0180 

MOV 

OMEN 

/* 

( 1  — BETA ) *B( 2 ) /2  ♦/ 

0408 

0180 

M3 

■ 

9 

0409 

Cl  81 

OP 

MOV 

OMEN, A 

/* 

STORE  B(3)/2  */ 

0409 

0181 

XOR 

ACCA, IDB 

0409 

0181 

M4 

• 

9 

0410 

0182 

JNSBO 

TEH2P 

• 

9 

0411 

0183 

TEH2M: 

OP 

NOV 

BNEM,B 

/* 

SHIFT  */ 

0411 

0183 

RPDEC 

0411 

0183 

M2 

9 

0412 

0 1 84 

OP 

ADD 

ACCA, RAH 

/* 

TEST  SIGN  OF  'E(N-I)  */ 

0412 

0184 

MOV 

IB,RO 

/» 

B=CB/2  */ 

0412 

0184 

N4 

0412 

0184 

RPDEC 

• 

9 

0413 

0185 

OP 

ADD 

ACCB,N 

0413 

0185 

MOV 

IK, MEN 

/* 

(1-BETA)*B(1 )/2  */ 

0413 

0185 

Ml 

• 

9 

0414 

0186 

OP 

MOV 

OHEN,B 

/* 

STORE  B(2)/2  */ 

0414 

0186 

M4 

• 

9 

0415 

0187 

JNSAO 

TEH1P 

• 

9 

0416 

0188 

TEHINi 

OP 

MOV 

8B,TR 

• 

9 

/* 

B='E(N)/4  •/ 

0417 

0189 

OP 

NOV 

IHEM.A 

/* 

SHIFT  */ 

0417 

0189 

SHL1 

ACCB 

0417 

0189 

Ml 

• 

» 

0418 

018A 

OP 

MOV 

INEM.B 

/• 

STORE  'E(M)/2  */ 
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m  UPD7720  ASSEMBLY  LIST  •*  (7/5/83  )  MOBULE  TDHSI4.SRC  PACE  00t8 


(  TONS  I  4  ) 


STNO 

LOC. 

SOURCE 

STATEMENT 

0418 

018A 

DPDEC 

0418 

018A 

RPDEC 

0418 

018A 

M3 

• 

9 

0419 

018B 

OP 

ADD 

ACCB, RAN 

/=» 

~S(N)/2  */ 

0419 

018B 

NOV 

8A.R0 

/* 

B=CB/2  */ 

0419 

018B 

DP1NC 

0419 

018B 

N7 

0419 

0181 

RPDEC 

m 

f 

0420 

018C 

OP 

ADD 

ACCA,M 

0420 

018C 

MOV 

ITR,B 

m 

f 

/* 

TR*~S(N>/2  •/ 

0421 

0180 

OP 

NOV 

INEM, A 

/♦ 

STORE  B(1)/2  */ 

0421 

0180 

SHR1 

ACCB 

0421 

0180 

DPDEC 

m 

t 

0422 

01 8E 

JMP 

TSD 

m 

9 

0423 

01 BF 

/• 

COEFFICIENTS  UPDATE  FOR  ~E(N)=0 

*/ 

• 

0423 

018F 

TEHZ: 

OP 

MOV 

ONON'B 

0423 

018F 

XOR 

ACCB, IDB 

• 

f 

0424 

0190 

OP 

SHL1 

ACCA 

0424 

0190 

HI 

• 

9 

0425 

0191 

OP 

MOV 

6TR,A 

/• 

TR*"E(N)/4  *f 

0425 

0(91 

XOR 

ACCA, IDB 

• 

t 

0420 

0192 

OP 

MOV 

6A,NEM 

/* 

"E(N-3)/2  */ 

0420 

0192 

Ml 

• 

f 

0427 

0193 

OP 

MOV 

BMEN, A 

/* 

SHIFT  •/ 

0427 

0193 

M2 

• 

9 

0428 

0194 

OP 

MOV 

8A,HEM 

/* 

~E(N-2>  */ 

0428 

0194 

M3 

m 

9 

0429 

0(95 

OP 

MOV 

(THEM, A 

/* 

SHIFT  */ 

0429 

0195 

M2 

• 

9 

0430 

0196 

OP 

MOV 

BA, MEM 

/* 

'E(N-I)  */ 

0430 

0196 

Ml 

• 

9 

0431 

0197 

OP 

MOV 

8B,TR 

• 

9 

/* 

Bs"E(N)/4  */ 

0432 

0198 

OP 

MOV 

8MEM, A 

/*  SHIFT  */ 

0432 

0198 

SHL1 

ACCB 

0432 

0198 

HI 

m 

9 

0433 

0199 

OP 

MOV 

8MEH,B 

/* 

STORE  ~E(M)/2  »/ 

0433 

0199 

DPDEC 

0433 

0199 

M3 

• 

9 

0434 

019A 

OP 

ADD 

ACCB, RAM 

/* 

"S(N)/2  */ 

0434 

01 9A 

M7 

• 

9 

0435 

019B 

OP 

NOV 

BTR,B 

m 

9 

I* 

TR*~S(N)/2  */ 

0430 

019C 

OP 

SNR1 

ACCB 

• 

t 

0437 

0190 

JMP 

TSD 

• 

1 

0438 

019E 

/* 

COEFFICIENTS  UPDATE 

FOR  "EINKO 

•/ 

0438 

019E 

TEHNi 

OP 

MOV 

BNON.B 

=»»  UPD7720  ASSEMBLY  LIST  **  (7/5/83  )  MODULE  TDHSI4.SRC  PAGE  0019 

(  TDHS  I  4  ) 


STMO  LOC. 

SOURCE 

STATEMENT 

0438  019E 

XOR 

ACGB,IDB 

0439  019F 

OP 

SHL1 

ACCA 

0440  01  AO 

OP 

ADD 

ACCB'RAN 

0440  01A0 

MOV 

BKLM,RO 

0440  01  AO 

RPDEC 

0440  01  AO 

Ml 

0441  01A1 

OP 

RPDEC 

0442  01A2 

JMP 

CON 

0443  01  A3 

/* 

UPDATE  DELTA  (SPEECH/DATA  DU 

0443  01  A3 

TSD: 

LDI 

8RP.RPPRE 

0444  01A4 

OP 

SUB 

ACCB, RAM 

0444  01A4 

MOV 

8A,B 

0444  01A4 

H6 

0445  01  AS 

JSBO 

TSD1N 

0446  01A6 

TSDIPs 

OP 

SUB 

ACCA, RAM 

0446  01A6 

MOV 

8KLM.R0 

0446  01A6 

RPDEC 

0446  01A6 

M7 

0447  01A7 

JSAO 

TSD2N 

0448  01A8 

TSD2P: 

OP 

SUB 

ACCB,IDB 

0448  01A8 

MOV 

BNON,A 

0449  01A9 

JSBO 

TSD3N 

0450  01 AA 

TSD3P: 

OP 

MOV 

BA,RO 

0450  01AA 

RPDEC 

0451  01 AB 

OP 

RPDEC 

0452  01  AC 

JMP 

TSD4 

0453  01  AD 

/* 

BRANCHES 

FOR  DELTA 

UPDATE  */ 

0453  01  AD 

TSD2N: 

OP 

ADD 

ACCB.IDB 

0453  01  AD 

MOV 

BNON, A 

0454  01 AE 

JNSBO 

TSD3P 

0455  01 AF 

TSD3N: 

OP 

RPDEC 

0456  01  BO 

OP 

NOV 

6A,R0 

0456  01  BO 

RPDEC 

0457  01B1 

JMP 

TSD4 

0458  01B2 

TSD1N: 

OP 

SUB 

ACCA, RAH 

0458  01B2 

NOV 

IKLH,RO 

0458  01B2 

RPDEC 

0458  01B2 

N7 

0459  01B3 

JSAO 

TSD5N 

0460  01B4 

TSD3P: 

OP 

ADD 

ACCB, IDB 

0460  01B4 

NOV 

8  NON,  A 

0461  01BS 

JSBO 

TSD3P 

0462  01B6 

OP 

RPDEC 

0463  01B7 

OP 

NOV 

IA,RO 

0463  01B7 

RPDEC 

/*  TEST  SIGN  OF  ~E<M-4)/2 
/*  (1-BETA)*B(4)/2  */ 


*/ 


-S(N)/4-~SD(M)/4  */ 


/*  "S<M)/4-"SS(N)/4  */ 
/*  <1-GAMA)*DELTA  */ 


/*  CDELTA  */ 


/*  CDELTA  */ 


/*  ~S<N)/4-~SS(N>/4  */ 
/*  ( 1 -6AM A)1* DELTA  */ 


/*  CDELTA  */ 
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< 

TDHS  «  4 

) 

STMO 

LOC. 

SOURCE 

STATEMENT 

0464 

0188 

JMP 

TS84 

• 

$ 

0465 

0189 

TSD5N: 

OP 

SUB 

ACCB, IDB 

0465 

0119 

MOV 

8H0N.A 

% 

f 

0466 

018A 

JSBO 

TS83P 

• 

y 

0467 

0188 

OP 

RPDEC 

• 

f 

0468 

018C 

OP 

MOV 

IA,RO 

/*  CDELTA  */ 

0468 

018C 

RPDEC 

• 

• 

0469 

018D 

/* 

4TH-0RBER 

SPEECH-TYPE  FIXED  PREDICTOR  */ 

0469 

0188 

TSD4: 

OP 

ADD 

ACCA,H 

0469 

0188 

MOV 

GKLR'MEN 

/*  AS { 4 ) /2*"S < N-3 ) /2  */ 

0469 

0180 

M3 

0469 

0188 

RPDEC 

« 

f 

0470 

018E 

OP 

MOV 

RHEH'A 

/*  STORE  DELTA  */ 

0470 

01 8E 

XOR 

ACCA'IDB 

0470 

01BE 

M7 

• 

y 

• 

0471 

018F 

OP 

ADD 

ACCA'H 

0471 

01 BF 

MOV 

0KLR.MEM 

/*  AS(3)/2*~S<N-2)/2  */ 

0471 

01 BF 

Ml 

0471 

01  BF 

RPDEC 

• 

y 

0472 

01C0 

OP 

ADD 

ACCA,N 

0472 

01C0 

MOV 

BKLR.MEM 

/*  AS<2)/2*'S<N-1)/2  */ 

0472 

01C0 

MS 

0472 

01C0 

RPDEC 

• 

y 

0473 

01C1 

OP 

ADD 

ACCA,M 

0473 

01C1 

MOV 

8KLR,TR 

/*  AS(1)/2*"S<N)/2  =♦/ 

0473 

01C1 

RPDEC 

0473 

01C1 

RET 

• 

y 

0474 

01C2 

/* 

4TH-0R0ER 

DATA-TYPE 

PREDICTOR  */ 

0474 

01C2 

C0N6: 

OP 

ADD 

ACCA,M 

0474 

01C2 

MOV 

8KLRrMEH 

/*  AD(4)/2*"S(N-3)/2  */ 

0474 

01C2 

H7 

0474 

01C2 

RPDEC 

• 

> 

0475 

01C3 

OP 

MOV 

BMEM, A 

/*  STORE  "SS<N-*1)/4  */ 

0475 

01C3 

XOR 

ACCA, IDB 

0475 

0103 

M3 

• 

y 

0476 

01C4 

OP 

MOV 

QKLR'HEM 

/♦  ADt3)/2*"StN-2>/2  »/ 

0476 

0104 

ADD 

ACCA, H 

0476 

0104 

M4 

0476 

0104 

RPDEC 

• 

y 

0477 

0105 

OP 

MOV 

0MEN,K 

/*  SHIFT  <*/ 

0477 

0105 

ADD 

ACCA,M 

0477 

0105 

MS 

• 

y 

0478 

0106 

OP 

NOV 

BKLR.MEN 

/*  AD<2)/2*"S<N-1)/2  •/ 

0478 

0106 

Ml 

0478 

0106 

RPDEC 

• 

i 
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( 

TDHS  N  4 

) 

STNO  LOC. 

SOURCE 

STATEMENT 

0479  01C7 

OP 

MOW 

IMENfK 

/* 

SHIFT  */ 

0479  01C7 

ADD 

ACCA.M 

0479  01C7 

Ml 

• 

9 

0480  01C8 

OP 

HOW 

OKLR'TR 

/* 

AD(1)/2*'S(N)/2  */ 

0480  01C8 

RPDEC 

• 

9 

0481  01C9 

OP 

ADD 

ACCA,M 

0481  01C9 

MOV 

IMEH,K 

/* 

SHIFT  */ 

0481  01C9 

DPINC 

0481  01C9 

M3 

• 

9 

0482  01CA 

/* 

4TH-0RDER 

ADAPTIVE 

4QN-RECURSIVE  PREDICTOR  */ 

0482  01CA 

OP 

MOV 

eXLH'HEM 

J* 

B(4)/2*"E(N-3)/2  */ 

0482  01CA 

M7 

0482  01CA 

DPDEC 

a 

V 

0483  01CB 

OP 

MOV 

BMEM, A 

/* 

STORE  "SD(N+1 >/4  */ 

0483  01CB 

H6 

a 

9 

4 

0484  01CC 

OP 

SUB 

ACC A, RAM 

/* 

"SD(N+1 )/4-~SS(N+1 )/4  */ 

0484  01CC 

MOV 

8B,A 

a 

f 

0485  01CD 

OP 

ADD 

ACCB,M 

0485  01CD 

HOW 

GKLM, A 

/* 

DELTA*ACCA  */ 

0485  01CD 

DPINC 

a 

f 

0486  01CE 

OP 

SUB 

ACCB,M 

0486  01CE 

HOW 

OKLN'MEN 

/* 

B(3)/2*"E(N“2)/2  */ 

0486  01CE 

M3 

a 

9 

0487  01 CF 

OP 

ADD 

ACCB  f M 

0487  01CF 

MOV 

8KLN,MEN 

/•* 

B(2)/2»"E(N-1)/2  »/ 

0487  01 CF 

Ml 

a 

f 

0488  01  DO 

OP 

ADD 

ACCB,M 

0488  01D0 

HOW 

<?KLM,MEM 

/••* 

B(1)/2*vE(N)/2  */ 

0488  01D0 

DPDEC 

0488  01D0 

M3 

! 

0489  01D1 

OP 

ADD 

ACCB, M 

a 

t 

0490  01D2 

OP 

MOV 

BNON,A 

0490  01D2 

XOR 

ACCA,  IDB 

a 

9 

0491  01D3 

OP 

SHL1 

ACCB 

a 

9 

0492  01D4 

OP 

MOV 

8MEH,B 

/* 

STORE  "P(N+1 )/2  */ 

0492  01D4 

XOR 

ACCB, IDB 

0492  01D4 

DPCLR 

a 

r 

0493  01D5 

ARCR: 

LDI 

BA'OOOFH 

a 

9 

0494  01D6 

LOI 

ISR,SR16I 

a 

9 

0495  01D7 

OP 

AND 

ACCA, IDB 

0495  01D7 

NOV 

INON,DR 

a 

9 

0496  0108 

LDI 

IB, TABLE 

a 

9 

0497  0109 

OP 

SUB 

ACCB, IDB 

0497  0109 

MOV 

QNON,A 

a 

9 

0498  01  DA 

OP 

MOV 

IRP.B 
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( 

TDHS  A  4 

) 

STNO  LOC. 

SOURCE 

STATEMENT 

0498  01DA 

XOR 

ACCB, IDB 

• 

F 

0499  01DB 

OP 

MOV 

bb,ro 

• 

9 

0500  01DC 

OP 

SHL4 

ACCB 

• 

9 

0501  01DD 

OP 

XCH6 

ACCB 

• 

F 

0502  01DE 

LDI 

IA,OOOFH 

• 

9 

0503  01  DF 

OP 

AND 

ACCA, IDB 

0503  01 DF 

MOV 

0NON,B 

0503  01DF 

DPDEC 

• 

9 

0504  01E0 

LDI 

*B,RPE 

• 

f 

0505  01E1 

OP 

SUB 

ACCB, IDB 

0505  01E1 

MOV 

0NON,A 

0505  01E1 

DPDEC 

;  /* 

ADJUST  RP  */ 

0506  01E2 

OP 

MOV 

0RP,B 

0506  01E2 

DPDEC 

■ 

F 

0507  01E3 

OP 

MOV 

BKLN'RO 

/* 

CALCULATE  <E(N+1)>  */ 

0507  01E3 

M4 

• 

r 

0508  01E4 

LDI 

IB.RPOS 

• 

F 

0509  01E5 

OP 

SUB 

ACCB, IDB 

0509  01E5 

MOV 

0NON,A 

• 

F 

0510  01E6 

OP 

MOV 

0NON, A 

0510  01E6 

XOR 

ACCA, IDB 

• 

9 

0511  01E7 

CALL 

COHN 

• 

9 

0512  01E8 

LDI 

8DP,40H 

■ 

F 

0513  01E9 

OP 

NOV 

OMEN, DR 

; 

'R(N)  */ 

0514  01EA 

LDI 

DDP.6DH 

■ 

F 

0515  0 1 EB 

/* 

4TH-0RDER 

DATA-TYPE  PREDICTOR 

*/ 

0515  01EB 

OP 

ADD 

ACCA,M 

0515  01 EB 

MOV 

BKLR,NEN 

/* 

ADC4)/2*~S(N-3)/2  ♦/ 

0515  0 1 EB 

M7 

0515  01EB 

RPDEC 

• 

F 

0516  01EC 

OP 

MOV 

OMEN, A 

/* 

STORE  ~SS(N+1)/4  */ 

0516  01EC 

XOR 

ACCA, IDB 

0516  01EC 

M3 

• 

F 

0517  01ED 

OP 

NOV 

8KLR,MEM 

/=» 

AD(3)/2!»"S(N-2)/2  =»/ 

0517  01ED 

ADD 

ACCA.H 

0517  01ED 

M4 

0517  01ED 

RPDEC 

• 

F 

0518  01EE 

OP 

NOV 

0HEN,K 

/* 

SHIFT  */ 

0518  01EE 

ADD 

ACCA,H 

0518  01EE 

M5 

• 

9 

0519  01EF 

OP 

NOV 

•KLR.NEM 

/* 

AD(2)/2*"S(N-1 )/2  *1 

0519  01EF 

Ml 

0519  01EF 

RPDEC 

• 

F 

0520  OIFO 

OP 

MOV 

QMEN,K 

/• 

SHIFT  */ 

0520  OIFO 

ADD 

ACCA.H 

UPD7720  ASSEMBLY  LIST  •*  (7/5/83  )  MODULE  TDHSI4.SRC  PACE  0023 


** 


(  TDHS  «  4 


) 


STNO  LOC.  SOURCE  STATEMENT 


0520  01F0 
0521  01F1 
0521  01F1 
0522  01F2 
0522  01F2 
0522  01F2 
0522  01F2 
0523  01F3  /* 

0523  01F3 
0523  0 1 F3 
0523  01F3 
0524  01F4 
0524  01F4 
0525  01F5 
0525  01F5 
0526  01F6 
0526  01F6 
0526  01F6 
0527  01F7 
0527  01F7 
0527  01F7 
0528  01F8 
0529  01F9 


Ml 

• 

t 

OP 

MOV 

0KLR,TR 

J*  ADC  1 )/2*~S(N)/2  */ 

RPDEC 

• 

f 

OP 

ADD 

ACCA,H 

MOV 

DMEM'K 

/*  SHIFT  */ 

DPINC 

M3 

• 

» 

4TH-0RDER 

ADAPTIVE 

NON-RECURSIVE  PREDICTOR  */ 

OP 

MOV 

!KLH,MEN 

/•  B(4)/2*"E(N-3)/2  */ 

M7 

DPDEC 

• 

9 

OP 

MOV 

0MEH,A 

It  STORE  ~SD(N+1)/4  */ 

H6 

m 

9 

OP 

SUB 

ACCA, RAN 

/*  'SDCN+D/A-'SSCN+D/A  */ 

NOV 

BB,  A 

J  • 

OP 

ADD 

ACCB,M 

MOV 

0KLM,  A 

/*  DELTA*ACCA  */ 

DPINC 

• 

9 

OP 

SUD 

ACCB,M 

MOV 

0KLH,MEM 

/*  B(3)/2*"E(N-2)/2  */ 

M3 

• 

9 

JHP 

CONS 

m 

f 

EOF 

• 

9 

ERROR  COUNT  =  0000 

**  UPD7720  ASSEMBLY  LIST  **  (7/5/83  )  MODULE  TDHSI4.SRC  PAGE  0024 
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it  UPD7720  ASSEMBLY  LIST  **  (7/5/83  )  MODULE  TDHSD4.SRC  PAGE  0001 

(  TDHS  «  4  ) 


STNO 

LOG. 

SOURCE 

STATEMENT 

0001 

0000 

MPROG 

9 

0002 

0000 

/* 

*********************************************************** 

0002 

0000 

* 

* 

0002 

0000 

* 

DATA  ROH  FOR  TDHS-ARC  * 

0002 

0000 

* 

i 

0002 

0000 

*********************************************************** 

0002 

0000 

0002 

0000 

AUTHOR: 

MAULIN  YEH 

0002 

0000 

DATE: 

9/8/83 

0002 

0000 

0002 

0000 

PROGRAM: 

TDHSD4.SRC 

0002 

0000 

0002 

0000 

VERSION 

#2:  4/9/83 

0002 

0000 

0002 

0000 

VERSION 

143 :  6/29/83 

0002 

0000 

NEU  CODING  TABLE 

0002 

0000 

4TH-0RDER  FIXED  PREDICTOR 

0002 

0000 

0002 

0000 

VERSION 

»4:  7/5/83 

0002 

0000 

ARCJ  ALGORITHM 

0002 

0000 

0002 

0000 

THIS  DATA-ROH  FILE  INCLUDES  THE  FOLLOUING  PARAMETERS: 

0002 

0000 

1. 

PITCH  PERIOD  TO  INVERSE  OF  (PITCH  PERIOD-1)  CONVERSION 

0002 

0000 

2. 

COEFFICIENTS  FOR  THE  FIRST-ORDER  FILTER  IN  THE  CENTER- 

0002 

0000 

CLIP  ROUTINE. 

0002 

0000 

3. 

COEFFICIENTS  FOR  LINEAR  TO  MU-LAU  CONVERSION. 

0002 

0000 

4. 

COEFFICIENTS  FOR  4U.-0RDER  MODEM-TYPE  RECURSIVE  FIXED 

0002 

0000 

PREDICTOR. 

0002 

0000 

5 . 

COEFFICIENTS  FOR  4th-DRDER  VOICE-TYPE  RECURSIVE  FIXED 

0002 

cooo 

PREDICTOR. 

0002 

0000 

6. 

COEFFICIENTS  TO  UPDATE  THE  VOICE/MODEM  DATA  DISCRIMINATOR 

0002 

0000 

PARAMETER. 

0002 

0000 

7. 

COEFFICIENTS  TO  UPDATE  THE  ADAPTIVE  PREDICTOR  COEFFICIENTS 

0002 

0000 

8. 

INVERSE  QUANTIZER  OUTPUT  SCALING  FACTORS. 

0002 

0000 

9. 

OUTPUT  QUANTIZER  4-BIT  CODES 

0002 

0000 

10. 

COEFFICIENTS  TO  UPDATE  THE  ADAPTIVE  QUANTIZER  STEP  SIZE. 

0002 

0000 

ft. 

QUANTIZER  THRESHOLDS. 

0002 

0000 

12. 

MU-LAU  TO  LINEAR  CONVERSION  TABLE. 

0002 

0000 

0002 

0000 

*/ 

0002 

0000 

DATA 

OOOOH  ; 

0003 

0001 

DATA 

OOOOH  ; 

0004 

0002 

ORG 

2H  ; 

0005 

0002 

DATA 

2224  ; 

0006 

0003 

DATA 

2240  : 
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"  UPD7720  ASSEMBLY  LIST  *.  (7/5/83  )  MODULE  TDHSD4.SRC 

<  TDHS  «  4  ) 

STMO  LOC.  SOURCE  STATEMENT 


0007 

cooe 

0009 
0010 
0011 
0012 
0013 
001  4 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 


0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
001 A 
001 B 
001C 
001 D 
001 E 
001 F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 
002B 
002C 
002B 
002E 
002F 
0030 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


2256 

2280 

2296 

2320 

2344 

2360 

2384 

2403 

2424 

2448 

2472 

2496 

2520 

2544 

2566 

2592 

2624 

2648 

2672 

2704 

2728 

2760 

2792 

2816 

2848 

2880 

2912 

2944 

2976 

3016 

3048 

3088 

3120 

3160 

3200 

3240 

3280 

3320 

3360 

3408 

3448 

3496 

3544 

3592 

3640 


**  UF't'77 20  ASSEMBLY  LIST  **  (7/5/93  >  NODULE  TDHSD4.SRC  PAGE  0003 

(  TDHS  «  A  ) 


STNO 

LOC. 

SOURCE  STATEMENT 

0052 

0031 

DATA 

3696 

0053 

0032 

DATA 

3744 

0054 

0033 

DATA 

3800 

0055 

0034 

DATA 

3856 

0056 

0035 

DATA 

3912 

005? 

0036 

DATA 

3968 

0058 

003? 

DATA 

4032 

0059 

0038 

DATA 

4096 

0060 

0039 

DATA 

4160 

0061 

003A 

DATA 

4232 

0062 

003B 

DATA 

4296 

0063 

003C 

DATA 

4368 

0064 

003D 

DATA 

4440 

0065 

003E 

DATA 

4520 

0066 

003F 

DATA 

4600 

006? 

0040 

DATA 

4680 

0068 

0041 

DATA 

4768 

0069 

0042 

DATA 

4856 

0070 

0043 

DATA 

4944 

00?1 

0044 

DATA 

5040 

0072 

00  45 

DATA 

5144 

0073 

0046 

DATA 

5240 

00?4 

004? 

DATA 

5352 

0075 

0048 

DATA 

5464 

0076 

0049 

DATA 

5576 

007? 

004A 

DATA 

5696 

0078 

004B 

DATA 

5824 

0079 

004C 

DATA 

5960 

0080 

004B 

DATA 

6096 

0081 

004E 

DATA 

6240 

0082 

004F 

DATA 

6392 

0083 

0050 

DATA 

6552 

0084 

0051 

DATA 

6720 

0085 

0052 

DATA 

1104 

0086 

0053 

DATA 

1112 

008? 

0054 

DATA 

1128 

0088 

0055 

DATA 

1136 

0089 

0056 

DATA 

1144 

0090 

005? 

DATA 

1152 

0091 

0058 

DATA 

1168 

0092 

0059 

DATA 

1176 

0093 

005A 

DATA 

1 184 

0094 

005B 

DATA 

1200 

0095 

005C 

DATA 

1208 

0096 

005D 

DATA 

1216 

K - 

| 

i 

i 

1 

i 

*«  UPD7720 

ASSEMBLY  LIST  ** 

(7/5/83 

)  NODULE  TDHSD4.SRC  PAGE  0004 

(  TDHS  »  4 

) 

STNO  LOC. 

SOURCE  STATEMENT 

i 

0097  005E 

DATA 

1232 

• 

9 

■ 

0098  005F 

DATA 

1240 

• 

9 

i 

0099  0060 

DATA 

1256 

a 

9 

0100  0061 

DATA 

1264 

a 

9 

i 

0101  0062 

DATA 

1280 

• 

r 

0102  0063 

DATA 

1288 

• 

9 

! 

0103  0064 

DATA 

1304 

■ 

9 

i 

0104  0065 

DATA 

1320 

• 

f 

0105  0066 

DATA 

1328 

• 

» 

0106  0067 

DATA 

1344 

• 

f 

0107  0068 

DATA 

1360 

a 

9 

[ 

0108  0069 

DATA 

1376 

• 

9 

l 

0109  006A 

DATA 

1384 

a 

9 

0110  0068 

DATA 

1400 

a 

9 

0111  006C 

DATA 

1416 

J  « 

0112  006D 

DATA 

1432 

a 

f 

0113  006E 

DATA 

1448 

a 

f 

0114  006F 

DATA 

1464 

a 

» 

0115  0070 

DATA 

1480 

a 

9 

0116  0071 

DATA 

1496 

a 

f 

0117  0072 

DATA 

1512 

a 

0118  0073 

DATA 

1536 

a 

9 

0119  0074 

DATA 

1552 

a 

9 

0120  0075 

DATA 

1568 

a 

9 

r  : 

0121  0076 

DATA 

1592 

a 

9 

0122  0077 

DATA 

1608 

a 

9 

0123  0078 

DATA 

1632 

a 

9 

0124  0079 

DATA 

1648 

a 

9 

i 

0125  007A 

DATA 

1672 

a 

9 

.1 

0126  007B 

DATA 

1688 

a 

9 

-  i 

0127  007C 

DATA 

1712 

a 

f 

0128  0078 

DATA 

1736 

a 

9 

0129  007E 

DATA 

1760 

• 

9 

0130  007F 

DATA 

1784 

a 

t 

0131  0080 

DATA 

1808 

a 

f 

0132  0081 

DATA 

1832 

• 

9 

0133  0082 

DATA 

1856 

a 

9 

0134  0083 

DATA 

1888 

a 

9 

0135  0084 

DATA 

1912 

a 

9 

0136  0085 

DATA 

1944 

a 

9 

0137  0086 

DATA 

1968 

a 

9 

0138  0087 

DATA 

2000 

a 

9 

0139  0088 

DATA 

2032 

a 

9 

R 

0140  0089 

DATA 

2064 

a 

9 

I 

0141  008A 

DATA 

2096 

a 

a 

• 

| 

109 

i 

j 

L 

—  — 

1 

*  UPD7720 

ASSEMBLY  LIST 

**  (7/5/83 

(  TDHS  «  4 

STNO 

LOC. 

SOURCE  STATEMENT 

0142 

0088 

DATA 

2128 

0143 

008C 

DATA 

2168 

0144 

008D 

DATA 

2200 

0145 

008E 

DATA 

2240 

0146 

008F 

DATA 

2280 

0147 

00?0 

DATA 

2320 

0148 

00?1 

DATA 

2360 

014? 

0092 

DATA 

2408 

0150 

00?3 

DATA 

2448 

0151 

00?4 

DATA 

2496 

0152 

00?5 

DATA 

2544 

0153 

00?6 

DATA 

2592 

0154 

00?7 

DATA 

2448 

0155 

00?8 

DATA 

2704 

0156 

00?? 

DATA 

2760 

0157 

00?A 

DATA 

2816 

0158 

00?B 

DATA 

2880 

015? 

00?C 

DATA 

2944 

0160 

00?D 

DATA 

3016 

0161 

00?E 

DATA 

3088 

0162 

00?F 

DATA 

3160 

0163 

OOAO 

DATA 

3240 

0164 

00A1 

DATA 

3320 

0165 

00A2 

DATA 

32440 

0166 

00A3 

DATA 

32344 

0167 

00A4 

DATA 

01  OH 

0168 

00A5 

DATA 

020H 

016? 

00A6 

DATA 

030H 

0170 

00A7 

DATA 

040H 

0171 

00A8 

DATA 

050H 

0172 

00A9 

DATA 

060H 

0173 

OOAA 

DATA 

070H 

0174 

OOAB 

DATA 

032 

0175 

OOAC 

DATA 

096 

0176 

OOAD 

DATA 

0224 

0177 

OOAE 

DATA 

0480 

0178 

OOAF 

'DATA 

0992 

017? 

0080 

DATA 

02016 

0180 

OOB 1 

DATA 

4064 

0181 

0082 

DATA 

8160 

0182 

0083 

DATA 

12904 

0183 

00B4 

DATA  - 

■16944 

0184 

0085 

DATA 

9640 

0185 

00B6 

DATA  • 

■?408 

0186 

0087 

DATA 

32648 

)  MODULE  TDHSD4.SRC  PAGE  0005 


/*  ALFA2=0.01  */ 

/*  G=1 .3  1-ALFA2*G  */ 
/*  CORD  1  */ 


/*  CORD  7  */ 

/*  CORD  THRESHOLD  */ 


/*  CORD  THRESHOLD  */ 
J*  ADC  1 )=0. 7878/2  */ 
/*  AD(2)=-1. 034/2  */ 
/*  AD<3)=0. 5884/2  */ 
/*  AD(4)*-. 5742/2  */ 
/*  flS(1)*1.??24B/2  */ 
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**  UPD7720  ASSEMBLY  LIST  **  (7/5/83 

(  TDHS  #  4 


STNO  LOC.  SOURCE 

STATEMENT 

0187  00B8 

DATA 

-25976 

0188  00B9 

DATA 

9864 

0189  OOBA 

DATA 

-1672 

0190  JOBB 

DATA 

64 

0191  OOBC 

DATA 

392 

0192  0OBD 

DATA 

32376 

0193  OOBE 

DATA 

184 

0194  OOBF 

DATA 

-184 

0195  OOCO 

DATA 

184 

0196  00C1 

DATA 

-184 

0197  00C2 

DATA 

184 

0198  00C3 

DATA 

-184 

0199  00C4 

DATA 

184 

0200  00C5 

DATA 

-184 

0201  00C6 

DATA 

184 

0202  00C7 

DATA 

32608 

0203  00C8 

DATA 

20H 

0204  00C9 

DATA 

29200 

0205  OOCA 

DATA 

19736 

0206  OOCB 

DA~A 

13112 

0207  OOCC 

DATA 

8424 

0208  OOCD 

DATA 

5088 

0209  OOCE 

DATA 

2792 

0210  OOCF 

DATA 

1168 

0211  OODO 

DATA 

-29200 

0212  00D1 

DATA 

-19736 

0213  00D2 

DATA 

-13112 

0214  00D3 

DATA 

-8424 

0215  00D4 

DATA 

-5088 

0216  00D5 

DATA 

-2792 

0217  00D6 

DATA 

-1168 

0218  00B7 

DATA 

0000 

0219  00D8 

DATA 

0070H 

0220  0009 

DATA 

0060H 

0221  OODA 

DATA 

0130H 

0222  OODB 

DATA 

0350H 

0223  OODC 

DATA 

OBBOH 

0224  OODD 

DATA 

0220H 

0225  CODE 

DATA 

0580H 

0226  OODF 

DATA 

0900H 

0227  OOEO 

DATA 

OFOOH 

0228  00E1 

DATA 

0E10H 

0229  00E2 

DATA 

0C90H 

0230  00E3 

DATA 

0440H 

0231  00E4 

DATA 

ODCOH 

)  MODULE  TDHSD4.SRC  PAGE  0006 


/*  AS(2)=-1. 58545/2  */ 
/*  AS<3)=0. 602051/2  */ 
f*  AS(4)=-. 102051/2  */ 
/*  GAMA-CDELTA  •»/ 

/♦  GAMA  CDELTA=.01  */ 

/t  1 -GAMA  GAMA=0.012  */ 

/*  -CB/2  CB=.01 1  */ 

/*  CB/2. CB=. Oil  */ 


f*  CB/2  */ 

/*  1-BETA  BETA*. 005  */ 

/*  <E>MIN  */ 

ft  QS ( 1 4 ) =6 . 48/8*SMIN  »/ 
ft  DS( 131=4. 38/8+SMIN  +/ 
/*  GS(12)=2.91/8*SMIN  */ 
/*  GS(1 1)*J. 87/8*SMIN  */ 
ft  QS(10)=1.13/8*SMIN  */ 
/*  QS(9)=.62/8*SMIN  »/ 

/♦  GS(8)=.26/8*SHIN  */ 

/*  QS(7)=-6.48/8*SMIN  */ 
/•*  QS(6)=-4.38/8*SNIN  */ 
/*  QS(5)=-2.91/8*SMIN  */ 
/*  QS(4)=-1.87/8»SMIN  */ 
/*  QS(3)=-1.13/8*SMIN  */ 
/*  QS(2)=-.62/8*SMIN  */ 
/*  QS(1)=-.26/8*SNIN  */ 
/*  QS<0)=0  */ 

/*  0=14  */ 

/*  Q=13  */ 

/•*  0=12  */ 

/*  U=11  ♦/ 

/*  0=10  */ 

/*  Q=9  */ 

/*  0=8  */ 

/*  Q=7  */ 

/*  Q=6  */ 

/*  0=5  */ 

/*  0=4  */ 

/*  0=3  ♦  / 


»♦  UPD7720  ASSEMBLY  LIST  t*  (7/5/83  )  MODULE  TDMSD4.SRC  PAGE  0007 

(  TDHS  II  4  ) 

STNO  LOC.  SOURCE  STATEMENT 


0232  00E5 

DATA 

OAAOH 

;  t * 

0=2  *7 

0233  00E6 

DATA 

06D0H 

;  /♦ 

Q=1  */ 

0234  00E7 

DATA 

08E0H 

;  /* 

0=0  */ 

0235  00E8 

DATA 

17592 

;  /* 

(1-ALFA+ALFA*tQS])/2  */ 

0236  00E9 

DATA 

17136 

;  /* 

(1-ALFA+ALFA*C0S3)72  */ 

0237  OOEA 

DATA 

16816 

;  /* 

(1-ALFA+ALFA*CQS3)72  */ 

0238  OOEB 

DATA 

16592 

;  /* 

U-ALFA+ALFA*CQS3)/2  */ 

0239  OOEC 

DATA 

16432 

;  /* 

( 1 -ALFA+ALFA*EQS3 )/2  */ 

0240  OOED 

DATA 

16320 

; 

<1-ALFA+ALFA*CQSJ)/2  */ 

0241  OOEE 

DATA 

16240 

;  7* 

<1-ALFA+ALFA*taS3)/2  */ 

0242  OOEF 

DATA 

17592 

;  7* 

(1-ALFA+ALFA*CQS3>/2  */ 

0243  OOFO 

DATA 

17136 

;  7* 

( 1 -ALFA+ALFA*EQS3 )/2  +/ 

0244  OOF  1 

DATA 

16816 

;  7* 

(1-ALFA4ALFA»EQS3)/2  */ 

0245  00F2 

DATA 

16592 

;  7* 

(1-ALFA+ALFA*CQS3)/2  */ 

0246  00F3 

DATA 

16432 

;  7* 

<1'ALFA*ALFA*[QS])/2  */ 

0247  OOF 4 

DATA 

16320 

;  7* 

( 1  -  ALFA+ALFA*CQS3 )/2  */ 

0248  OOFS 

DATA 

16240 

;  7* 

( 1  -ALFA+ALFA+CQS3 )/2  t/ 

0249  00F6 

DATA 

16184 

;  7* 

( 1 -ALFA+ALFA*[QS] ) /2  «/ 

0250  00F7 

DATA 

32264 

;  7* 

QTH(7)=TH(7)-TH(6)=1 ,79/2+SHIN  * 

0251  00F8 

DATA 

22528 

;  7* 

0TH(6)=TH(6)-TH(5)=1 .25/2*SM!N  *. 

0252  00F9 

DATA 

16040 

;  /* 

QTH(5)=TH(5)-TH(4)=.89/2»SMIN  ♦/ 

0253  00 FA 

DATA 

11176 

;  7* 

OTH 1 4)=TH( 4)-TH( 3)=.62/2*SMIN  f/ 

0254  OOFB 

DATA 

7928 

;  /* 

QTH(3)=TH<3)-TH(2)=.44/2*SMIN  */ 

0255  OOFC 

DATA 

5584 

;  7* 

QTH( 2) =TH(2)-TH( 1 )= .31 /2*SMIN  »/ 

0256  OOFD 

DATA 

2344 

;  7* 

0TH(1 )=TH(1 )=.13/2*SMIN  SHIN'1 .1 

0257  OOFE 

ORG 

100H 

• 

f 

0258  0100 

DATA 

-32128 

• 

t 

0259  0101 

DATA 

-31104 

• 

9 

0260  0102 

DATA 

-30080 

• 

» 

0261  0103 

DATA 

-29056 

• 

9 

0262  0104 

DATA 

-28032 

• 

f 

0263  0105 

DATA 

-27008 

• 

V 

0264  0106 

DATA 

-25984 

• 

V 

0265  0107 

DATA 

-24960 

• 

t 

0266  0108 

DATA 

-23936 

• 

9 

0267  0109 

DATA 

-22912 

9 

0268  01 OA 

DATA 

-21888 

• 

f 

0269  010B 

DATA 

-20864 

• 

» 

0270  010C 

DATA 

-19840 

• 

9 

0271  0 1 OD 

DATA 

-18816 

t 

0272  01 OE 

DATA 

-17792 

■ 

9 

0273  010F 

DATA 

-14768 

• 

9 

0274  0110 

DATA 

-16000 

• 

t 

0275  0111 

DATA 

-15488 

• 

1 

0276  0112 

DATA 

-14976 

• 

• 
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**  UPD7720 


STNO  LOC. 

0277  0113 
0278  0114 
027?  0115 
0280  0116 
0281  0117 
0282  0118 
0283  0119 
0284  01  1 A 
0285  0118 
0286  011C 
0287  0118 
0288  011 E 
0289  01  IF 
0290  0120 
0291  0121 
0292  0122 
0293  0123 
0294  0124 
0295  0125 
0296  0126 
0297  0127 
0298  0128 
0299  0129 
0300  012A 
0301  0128 
0302  012C 
0303  0128 
0304  012E 
0305  012F 
0306  0130 
0307  0131 
0308  0132 
030?  0133 
0310  0134 
0311  0135 
0312  0136 
0313  0137 
0314  0138 
0315  013? 
0316  013A 
0317  01 3B 
0318  013C 
031?  0138 
0320  013E 
0321  013F 


ASSEMBLY  LIST  **  (7/5/83  )  MODULE  TDHSD4.SRC  PAGE  0008 

(  TDHS  H  4  ) 

SOURCE  STATEMENT 


DATA 

-14464 

DATA 

-13952 

DATA 

-13440 

DATA 

-12928 

DATA 

-12416 

DATA 

-11904 

DATA 

-11392 

DATA 

-10880 

DATA 

-10368 

DATA 

-9856 

DATA 

-9344 

DATA 

-8832 

DATA 

-8320 

DATA 

-7936 

DATA 

-7680 

DATA 

-7424 

DATA 

-7168 

DATA 

-6912 

DATA 

-6656 

DATA 

-6400 

DATA 

-6144 

DATA 

-5888 

DATA 

-5632 

DATA 

-5376 

DATA 

-5120 

DATA 

-4864 

DATA 

-4608 

DATA 

-4352 

DATA 

-4096 

DATA 

-3904 

DATA 

-3776 

DATA 

-3648 

DATA 

-3520 

DATA 

-3392 

DATA 

-3264 

DATA 

-3136 

DATA 

-3008 

DATA 

-2880 

DATA 

-2752 

DATA 

-2624 

DATA 

-2496 

DATA 

-2368 

DATA 

-2240 

DATA 

-2112 

DATA 

-1984 
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**  UPD7720  ASSEMBLY  LIST  **  (7/5/83  )  MODULE  7DHSD4.SRC  PAGE  000? 


(  TDHS  It  4  ) 

STNO  IOC.  SOURCE  STATEMENT 

0322  0140  DATA  -1888 

0323  0141  DATA  -1824 

0324  0142  DATA  -1760 

0325  0143  DATA  -1696 

0326  0144  DATA  -1632 

0327  0145  DATA  -1568 

0328  0146  DATA  -1504 

0329  0147  DATA  -1440 

0330  0148  DATA  -1376 

0331  0149  DATA  -1312 

0332  014A  DATA  -1248 

0333  014B  DATA  -1184 

0334  014C  DATA  -1120 

0335  014D  DATA  -1056 

0336  014E  DATA  -992 

0337  01 4F  DATA  -928 

0338  0150  DATA  -880 

0339  0151  DATA  -848 

0340  0152  DATA  -816 

0341  0153  DATA  -784 

0342  0154  DATA  -752 

0343  0155  DATA  -720 

0344  0156  DATA  -688 

0345  0157  DATA  -656 

0346  0158  DATA  -624 

0347  0159  DATA  -592 

0348  015A  DATA  -560 

0349  015B  DATA  -528 

0350  015C  DATA  -496 

0351  015D  DATA  -464 

0352  015E  DATA  -432 

0353  015F  DATA  -400 

0354  0160  DATA  -376 

0355  0161  DATA  -360 

0356  0162  DATA  -344 

0357  0163  DATA  -328 

0358  0164  DATA  -312 

0359  0165  DATA  -296 

0360  0166  DATA  -280 

0361  0167  DATA  -264 

0362  0168  DATA  -248 

0363  0169  DATA  -232 

0364  016A  DATA  -216 

0365  016B  DATA  -200 

0366  016C  DATA  -184 
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«*  UPD7720 

ASSEMBLY  LIST  ** 

(7/5/8 

(  TDHS  *  4 

STNO  LOC. 

SOURCE  STATEMENT 

0367  0 1 6D 

DATA 

-168 

0368  016E 

DATA 

-152 

0369  016F 

DATA 

-136 

0370  0170 

DATA 

-120 

0371  0171 

DATA 

-112 

0372  0172 

DATA 

-104 

0373  0173 

DATA 

-96 

0374  0174 

DATA 

-88 

0375  0175 

DATA 

-80 

0376  0176 

DATA 

-72 

0377  0177 

DATA 

-64 

0378  0178 

DATA 

-56 

0379  0179 

DATA 

-48 

0380  017A 

DATA 

-40 

0381  0178 

DATA 

-32 

0382  017C 

DATA 

-24 

0383  01 7D 

DATA 

-16 

0384  017E 

DATA 

-8 

0385  017F 

DATA 

0 

0386  0180 

DATA 

32128 

0387  0181 

DATA 

31104 

0388  0182 

DATA 

30080 

0389  0183 

DATA 

29056 

0390  0184 

DATA 

28032 

0391  0185 

DATA 

27008 

0392  0186 

DATA 

25984 

0393  0187 

DATA 

24960 

0394  0188 

DATA 

23936 

0395  0189 

DATA 

22912 

0396  018A 

DATA 

21888 

0397  0188 

DATA 

20864 

0398  018C 

DATA 

19840 

0399  0180 

DATA 

18816 

0400  018E 

DATA 

17792 

0401  018F 

DATA 

16768 

0402  0190 

DATA 

16000 

0403  0191 

DATA 

15488 

0404  0192 

DATA 

14976 

0405  0193 

DATA 

14464 

0406  0194 

DATA 

13952 

0407  0195 

DATA 

13440 

0408  0196 

DATA 

12928 

0409  0197 

DATA 

12416 

0410  0198 

DATA 

11904 

0411  0199 

DATA 

1 1392 

IT 

*• 

**  UPD7720 

ASSEMBLY  LIST 

*♦  (7/5/83 

)  MODULE  TDHSD4.SRC  PAGE  0011 

“ . 1 

H 

(  TDHS  H  4 

> 

H 

STNO  LOC. 

SOURCE  STATEMENT 

I  , 

0412  01 9A 

DATA 

10880 

• 

f 

j 

0413  019B 

DATA 

10368 

9 

j 

i 

0414  019C 

DATA 

9856 

• 

9 

i 

0415  019D 

DATA 

9344 

« 

9 

i 

c  , 

0416  019E 

DATA 

8832 

• 

» 

i 

1 

0417  019F 

DATA 

8320 

• 

f 

i 

0418  01  AO 

DATA 

7936 

• 

f 

• 

0419  0 1  At 

DATA 

7680 

• 

V 

:  | 

0420  01A2 

DATA 

7424 

• 

r 

..  y 

0421  01  A3 

DATA 

7168 

• 

t 

i 

0422  01A4 

DATA 

6912 

9 

0423  01A5 

DATA 

6656 

• 

9 

i 

0424  01A6 

DATA 

6400 

9 

0425  01A7 

DATA 

6144 

• 

t 

\ 

0426  01A8 

DATA 

5888 

m  • 

9 

j 

j 

0427  01A9 

DATA 

5632 

• 

9 

I 

0428  01 AA 

DATA 

5376 

9 

j 

0429  01 AB 

DATA 

5120 

■ 

9 

■ 

0430  01  AC 

DATA 

4864 

• 

9 

! 

0431  01  AD 

DATA 

4608 

■ 

9 

•! 

' 

0432  01 AE 

DATA 

4352 

• 

9 

I 

. 

0433  01 AF 

DATA 

4096 

• 

9 

i 

■ 

0434  01  BO 

DATA 

3904 

• 

9 

i 

■.  ■ 

0435  0 1 B 1 

DATA 

3776 

• 

9 

j 

: 

0436  01B2 

DATA 

3648 

• 

9 

; 

0437  01B3 

DATA 

3520 

• 

9 

. 

0438  01B4 

DATA 

3392 

• 

9 

, 

0439  01B5 

DATA 

3264 

9 

0440  01B6 

DATA 

3136 

• 

9 

0441  01B7 

DATA 

3008 

• 

0442  01B8 

DATA 

2880 

• 

9 

? 

i 

0443  01B9 

DATA 

2752 

• 

9 

: 

0444  01BA 

DATA 

2624 

• 

9 

f  - 

0445  01BB 

DATA 

2496 

• 

9 

! 

0446  01 BC 

DATA 

2368 

9 

i  • 

i 

0447  01BD 

DATA 

2240 

■ 

9 

\ 

* 

0448  01BE 

DATA 

2112 

• 

9 

0449  01BF 

DATA 

1984 

• 

9 

0450  01C0 

DATA 

1888 

• 

9 

0451  01C1 

DATA 

1824 

• 

9 

0452  01C2 

DATA 

1760 

• 

9 

« - 

0453  01C3 

DATA 

1696 

• 

9 

0454  01C4 

DATA 

1632 

• 

9 

r 

0455  01C5 

DATA 

>568 

■ 

9 

I 

•» 

0456  01C6 

DATA 

1504 

• 

• 

L 

1 
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\ 

HHHFI 

»♦  UPD7720 


ST MO  LOG. 

0457  01C7 
0458  01C8 
045?  01C? 
0460  01CA 
0461  01 CB 
0462  01CC 
0463  01  CD 
0464  01CE 
0465  01CF 
0466  0 1  DO 
0467  01D1 
0468  01D2 
046?  01 D3 
0470  01D4 
0471  01D5 
0472  0106 
0473  01D7 
0474  01D8 
0475  01D? 
0476  01  DA 
0477  01 DB 
0478  01  DC 
047?  01 DD 
0480  01 DE 
0481  01DF 
0482  01E0 
0483  01  El 
0484  01E2 
0485  01E3 
0486  01E4 
0487  01E5 
0488  01E6 
048?  01E7 
0490  01E8 
0491  01E? 
0492  01EA 
0493  01E8 
0494  01EC 
0495  0 1  ED 
0496  01EE 
0497  01 EF 
0498  01F0 
049?  01F1 
0500  01 F2 
0501  01F3 
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ASSEMBLY  LIST  **  (7/5/83  )  MODULE  TBHSB4.SRC  PAGE  0012 

(  TDHS  #  4  ) 

SOURCE  STATEMENT 


DATA 

1440 

DATA 

1376 

DATA 

1312 

DATA 

1248 

DATA 

1184 

DATA 

1120 

DATA 

1056 

DATA 

992 

DATA 

928 

DATA 

880 

DATA 

848 

DATA 

816 

DATA 

784 

DATA 

752 

DATA 

720 

DATA 

688 

DATA 

656 

DATA 

624 

DATA 

592 

DATA 

560 

DATA 

528 

DATA 

496 

DATA 

464 

DATA 

432 

DATA 

400 

DATA 

376 

DATA 

360 

DATA 

344 

DATA 

328 

DATA 

312 

DATA 

296 

DATA 

280 

DATA 

264 

DATA 

248 

DATA 

232 

DATA 

216 

DATA 

200 

DATA 

184 

DATA 

168 

DATA 

152 

DATA 

136 

DATA 

120 

DATA 

112 

DATA 

104 

DATA 

96 
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*♦  UP 07720  ASSEMBLY  LIST  **  (7/5/83  )  MODULE  TDHSD4.SRC  PAGE  0013 


(  TDHS  «  4  ) 


S T NO  LOC.  SOURCE  STATEMENT 


0502  01F4 

DATA 

38 

0503  01F5 

DATA 

80 

0504  01F6 

DATA 

72 

0505  01F7 

DATA 

64 

0506  01F8 

DATA 

56 

0507  01F9 

DATA 

48 

0508  01  FA 

DATA 

40 

0509  01FB 

DATA 

32 

0510  01FC 

DATA 

24 

0511  01 FD 

DATA 

16 

0512  01FE 

DATA 

8 

0513  01FF 

DATA 

0 

0514  0200 

EOF 

ERROR  COUNT  =  0000 

**  UPD7720  ASSEMBLY  LIST  **  (7/5/83  )  MODULE  TDH5D4.SRC  PAGE  0014 
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APPENDIX  C 


PRODUCTION  COST  ESTIMATE 

This  section  presents  an  estimate  of  the  production  cost  for  the  TDHS-ARC 
system.  Two  approaches  are  considered.  The  first  approach  utilizes  off- 
the-shelf  LSI  components  for  fabrication  of  the  TDHS-ARC  system.  The  second 
considers  the  design  based  on  a  custom  LSI  TDHS-ARC  transceiver. 

C.l  Off-the-Shelf  Component  Design 

The  cost  estimate  given  here  is  for  the  TDHS-ARC  system  as  delivered  as 
part  of  this  contract  (design  and  package).  The  current  design  has  consider¬ 
able  potential  for  optimization  for  a  large  production  schedule  from  the  point 
of  hardware  complexity  as  well  as  reliability  and  testing.  Theee  would  be 
incorporated  before  a  production  was  undertaken. 

Cost/unit  for  <  1000  units  -  $2400 

Cost/unit  for  10,000  units 

in  batches  of  2000  units  -  $1920 

C.2  Custom  LSI  TDHS-ARC  Transceiver  Design 

The  second  approach  to  manufacturing  TDHS-ARC  systems  is  based  on  a  cus¬ 
tom  LSI  TDHS-ARC  transceiver  chip.  The  total  system  would  in  such  a  case  con¬ 
sist  of  the  custom  transceiver,  an  analog  interface  and  a  digital  interface. 
This  section  briefly  considers  the  contents  and  size  of  the  transceiver  chip. 

This  analysis  of  the  size  of  the  chip  is  based  on  2  micron  NMOS  tech¬ 
nology  and  is  derived  by  comparison  with  currently  available  signal  processing 
chips,  and  256  kilobit  RAM  chips  by  appropriate  scaling.  The  transceiver  chip 
would  require  an  approximate  NEC  7720  equivalent  (40,000  transistors),  30  kil¬ 
obits  of  additional  RAM  (30,000  transistors),  and  some  additional  logic  for 
pitch  extraction,  code-word  synchronization,  and  clock  and  timing  (9000  tran¬ 
sistors).  The  total  estimated  area  is  approximately  30  mm*.  Figure  C.l  shows 
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a  functional  breakdown 


NEC  chip  equivalent 

:  17.9 

mm^ 

30  Kilobits  RAM 

:  5.3 

ram^ 

Random  logic 

:  6.5 

mm^ 

Total 

:  29.7 

mm2 

Baaed  on  the  die  area  of  this  chip,  and  by  comparison  with  the  custom  LSI 
convolutional  processor  (developed  for  Tellabs,  Inc.  for  use  in  echo 
cancellation),  the  custom  TDHS-ARC  transceiver  would  cost  about  $30  to  $60  per 
chip,  after  development  cost  and  process  stabilization.  Hie  cost  estimate  of 
the  TDHS-ARC  system  built  using  such  a  custom  transceiver  would.be  as  follows: 

Cost/unit  for  10,000  units 

in  batches  of  2000  units  -  $800 
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